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INTRODUCTION 


DECISIONS 

One of our better students once renarked that learning BASIC 
was like trying to learn to play baseball by being surrounded by 
coaches, all throwing balls at you at the sane time. This book 
grew out of our attempts to make those balls easier to catch. 

When we first started teaching BASIC, we soon learned that 
students, even those who read the book and came to lectures, did 
almost all of their learning in the lab. When we were frustrated 
in our search for a machine specific, lab-oriented textbook, we 
did what everyone else seems to have done. We wrote our own. 

We resolved to write a text that would give a student a solid 
background in BASIC without being terrorized by advanced program¬ 
ming concepts. We found we could do this without sacrificing the 
teaching of control structures, flowcharting, programming stand— 
ards, program design, double subscripts, menus, error—trapping. 
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and structured programming techniques. In fact, to our surprise, 
our students gained so much confidence as a result of the non¬ 
threatening approach of the lab exercises that they were actually 
better programmers at the end of the course than earlier students 
had been. By chapter 10 they now write complete, menu—driven 
programs which produce and modify a sequential file with weekly 
updates. 

We now teach a separate Algorithms class which covers sort¬ 
ing, matrix operations, binary tree searches etc. and find that 
this leaves us free in the language classes to concentrate on the 
language itself. This is particularly helpful with BASIC since 
for so many it is a first computer language. We also have, to 
some extent, de-emphasized mathematical applications since FOR¬ 
TRAN, Pascal, C, and ADA are all better mathematical languages 
and have focused instead on things like string-handling, record¬ 
keeping, and interaction with the user for which BASIC is well 
suited. 

Because we intended to concentrate on BASIC itself we have 
also left out any detailed discussions of speed or memory. In 
the "real world," applications where speed or memory are critical 
rarely use BASIC. Nor have we exhaustively described the Com¬ 
modore 64. We have left out, for the most part, intrinsic sub¬ 
routine calls, USR functions, and other facets that have no 
analog on other machines. 

Since this is intended as an introductory book we have also 
left out matrix operations and random access files after deciding 
that we would rather narrow the scope of the book and leave stud— 
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ents with a positive attitude about programming than try to cover 
everything and leave the students confused and unsure of 
themselves. 

Several other decisions we made in developing the book need 
explanation. Because we developed the book empirically by spend¬ 
ing a lot of time in the lab with the students v there are several 
features of the book that seem to defy common sense but which 
"work" in practice. 

The most obvious of these is the introduction of the defined 
functions so early in the book. The functions are introduced in 
chapter two as a method of rounding off. Since Commodore BASIC 
has no PRINT USING or C1NT statement, these functions are the 
only practical way to round off. We found students were 
disturbed by the long decimals produced by their programs and 
wanted to get rid of them. Some of the numbers were clearly 
errors produced by BASIC*s binary storage of floating point 
numbers (7 A £, for example, gives a result of 49.0088001). Often 
the students thought these were the result of an error on their 
part and spent fruitless hours trying to get rid of them. Me 
found that the easiest solution to this problem was to introduce 
the rounding functions early and tell the students that they 
didn't really have to understand them; just type them in and use 
them to round off. In practice, the students have very little 
trouble with them and this has two added benefits. They are less 
frightened by functions when we discuss them later in the text, 
and they readily see the value of the STARTER program which eases 
them into structured programming and programming standards while 
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saving them from having to type in the rounding functions for 
every program. 

Another issue that needs explaining is the introduction of 
the complex BASIC editing commands so early in the text. We 
found that unless we taught the editing methods and insisted on 
their use from the beginning, students simply refused to use 
them. The students wasted hours of valuable computer time retyp¬ 
ing lines that needed only a simple typo corrected. Having the 
students become skilled at the editing commands saves them many 
hours by the end of the class. 

A final issue that needs explanation is the placement of the 
graphics section at the end of the book. Some would like to see 
this topic come earlier in the text. We put it at the end for 
two reasons. First, it serves as a reward for the student who 
reaches the end of the book. Second, we found that if we intro¬ 
duced graphics, sound, and animation earlier, some students got 
sidetracked into writing arcade games and never made it to the 
later chapters. By putting the graphics chapter at the end we 
avoided this and left the student with something fun to work on 
after the course was over. 

ERRORS 

We have made every attempt to make the book error free but, 
being human, we have undoubtedly let some errors slip by. We ask 
that you forgive us for any mistakes you might find and, if you 
find the time, drop us a note about any errors or suggestions for 
changes so that we can make future editions more useful for all 
of us. 
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THE INSTRUCTOR’S DISK 


We have included, on the Instructor’s disk, solutions to all 
the programming exercises in the book as well as the Example 
programs from each chapter and the starter program. A listing 
of the programs on the disk is included below. The diskette is 
not copy-protected and we encourage you to make backup copies. 
Since it contains the solutions to all of the programming 
exercises in the book, however, we ask that you not give copies 


of it to students. 

Listings of the solutions to the programming exercises are 
included in this manual as well. 


Example Programs on the Instructor’s Disk 


PROGRAM 0 
P-2B MPG 
P-3C ECHO PRINT 
P-5A C TO F 
P-6B GAS BILL 
P-7 XMAS TREE 
P-8B PICK A CARD 
P-9 SORT 
CONVERTER 


PROGRAM 1A 
P-3A MPG 
P-4A MPG 
P-5B SUM 
P-6C SAVINGS 
P-8A USING TAB 
P-8C MULTIPLY 
P-10 BOWLING 


STARTER 
P-3B MPG 
P-4B MPG 
P-6A GROSS PAY 
P-6C ECHO PRINT 
P-8A PRINTER TAB 
P-8D NAME SWAP 
P-11 GUN/TARGET 


Exercise Programs on the Instructor’s Disk 


PROGRAM 1A 
P-2 MPG 

P-3.3 ECHO PRINT 
P-5.1 MPG TABLE 
P-5.4 SQUARES 
P-5.7 AVG/DIFF 
P-6.3 GRADES 
P-6.6 ELECTRIC 
P-7.3 DATA/GRAPH 
P-8.3 MORTGAGE 
P—8. 6 PLACE CARD 
P-9.1 SALES 
P-9.4 PAYROLL 
P-10.2 INVENTORY 
P-10.5 GRADES 
P-11.3 GUN TOP 


PROGRAM IB 
P-3.1 READ/DATA 
P-4.1 READ LOOP 
P-5.2 SALES TAX 
P-5.5 SAVINGS 
P-6.1 PRICE 
P-6.4 ACCOUNT 
P-7.1 WOOD SHED 
P-8.1 SQUARES 
P-8.4 DICE 
P-8.7 PLACE CARD 
P-9.2 INVENTORY 
P-9.5 GRADES 
P-10.3 BASEBALL 
P-11.1 GUN LEFT 


PROGRAM 1C 
P-3.2 INPUT 
P-4.2 INPUT LOOP 
P-5.3 ALTITUDE 
P-5.6 ARK MFG 
P-6.2 COMMISSION 
P-6.5 SALARY 
P-7.2 BAR GRAPH 
P-8.2 ALTITUDE 
P-8.5 DRAW CARDS 
P-8.8 PLACE CARD 
P-9.3 BASEBALL 
P-10. 1 SALES 
P-10.4 PAYROLL 
P-11.2 GUN RIGHT 
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THE APPENDICES 


We have found that it is helpful to periodically remind 
students about the value of the Appendices as they tend to forget 
about them. This is especially true of Appendix B which explains 
what the Commodore*s error messages mean and what usually causes 
them. 

We have put the section on flowcharting and program design 
at the end of the book in Appendix E as we have found instructors 
vary in the amount of emphasis they wish to place on this topic. 
Some like to assign this Appendix early in the course, others 
skip it completely, still others simply recommend it to the 
students without requiring them to read it. 

With regard to Appendix A, the Mini-Manual, we have found it 
very helpful to have this at the end of the book. Students in 
beginning BASIC seem to come in two forms. One group wants to 
know everything about the language. The other group wants to 
know only what is necessary to get through the course. Those who 
want to know everything, read the Mini-Manual like a novel, early 
in the course. The others consult it only when necessary. We 
have found that it works best for us to tell the students that 
the Mini—Manual is there, but to leave it up to them when and how 
they will use it. 
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PART ONES INSTRUCTOR'S GUIDE, LECTURE AND LAB TIPS 


CHAPTER 0 


GETTING STARTED 

Basic Computer Skills 


OVERVIEW 

This chapter is intended to get the student with relatively 
little computer experience off to a solid start. It assumes 
very little and, since it is meant to be easy and non- 
threatening, we have tried to make the concepts taught here as 
easy as possible. 

We encourage the students to work their way through it while 
sitting at the computer. We also stress the importance of using 
the escape mode to edit program lines. Although some think that 
these editing functions should not be introduced until later in a 
text due to their difficulty, we find that unless students begin 
using them from the beginning, they don’t use them at all. When 
the students edit all their lines by retyping them it ties up 
valuable computer time and raises their frustration level. Over 
the years we have learned that forcing students to use these 
editing skills from the beginning makes the course easier for 
everyone. 
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OBJECTIVES 

The student should know the meaning of the following terms, 
commands, or keys: 


1. 

Setting up a disk 


ii. 

LIST 

s. 

Formatted diskette 


12. 

LOGO "$",Q and LIST 

3. 

RETURN key 


13. 

Wedge program 

4. 

Shift/Commodore key 


14. 

LOAD 

5. 

Ctrl 1 - Ctrl a 


15. 

SAVE 

6. 

Ctrl 9 


IS. 

>$ OR @$ 

7. 

Ctrl 0 


17. 

SCRATCH 

a. 

SHIFT CLR/HOME 


18. 

PRINT and PRINT #4 

9. 

Variable Names 


19. 

Editing 

ie. 

NEU 


20. 

Cursor keys 

The 

student should be able 

to: 


1. 

use the computer without 

being 

anxious. 

2. 

understand the basics 

of 

computer architecture. 

3. 

use the disk drive and 

understand its relationship to 


the computer. 




4. 

type and debug simple 

programs 

using the BASIC editor 
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LECTURE GUIDE 

I. Conceptualizing Computer Architecture 


During the first few hours working with a computer, the 
student will be almost totally preoccupied with the 
procedures necessary to operate the computer. Consequently, 
the lecture should concentrate on that which is foremost in 
the student’s mind; procedures. Live demonstrations are 
very helpful, and so is anything that gives the student a 
mental model of the computer. The following is an outline 
of some things the authors have found to be useful. 

g. Brief Description of the Computer System (15 minutes) 

1. The Keyboard - Use a transparency to explain the 
keyboard. In particular, point out the RETURN key, 
the CRSR keys, the CLR/HOME key, the RUN/STOP key, 
the CTRL key, the INST/DEL key, and the Commodore 
key. 

2. The Screen 

3. The Computer 

B. The Two Parts of Computer Memory (15 minutes) 

A lot of the problems students have with the 
computer involves confusion between what they see on 
the screen and the current program in the computer 
memory. The author has used the following memory model 
to help clear up this confusion. 

1. The Screen Memory - part of the memory of the 

computer is reserved for the screen. The screen 
can display 960 characters in a grid 4® characters 
wide by 24 characters high. Each place on the 
screen where a character can be displayed is 
assigned to a memory cell in the computer’s memory. 
There are a total of 96® memory cells devoted to 
the display on the screen. We will call these 96® 
memory cells the Screen Memory. The screen memory 
is used only for displaying characters on the 
screen. To display a program on the screen, the 
computer must put each character in the program (in 
a coded form) in the proper cell in the Screen 
Memory. 
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2. The Program Memory — part of the memory of the 

computer is reserved for one program that we will 
call the current program in memory. We will call 
this the Program Memory. The Program Memory can 
contain only one program at a time. If we type the 
command NEW and press the return key, the computer 
will clear out the Program Memory. If we type a 
program line on the screen and press the return 
key, that program line will be copied into the 
Program Memory. If we type SHIFT CLR/HOME to clear 
the screen, the program line will be removed from 
the Screen Memory, but it will still be in the 
Program Memory. The command New does to the 
Program Memory what the command SHIFT CLR/HOME does 
to the Screen Memory. 

Any time we press the RETURN key when the cursor is 
on a program line on the Screen Memory, that 
program line on the screen is put in the proper 
place in the Program Memory and the cursor moves to 
the next line on the screen. 

C. Computer Commands 

1. LIST copies the program in the Program Memory onto 
the screen. 

2. RUN causes the computer to perform the instructions 
in the program in Program Memory. 

3. SHIFT CLR/HOME clears the Screen and puts the 
cursor in the upper left corner. 

4. New removes the program in the Program Memory. 

D. Example of a Simple Program (10 minutes) 

Explain the program in the Section on the Simple Image. 
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II. Using the Disk Drive (15 minutes) 

A. Why Use a Disk Drive? 

1. A disk holds many programs 

2. Disk memory is permanent 

B. Disk Operation 

1. The Disk Operating System (DOS) 

2. Preparing a disk (formatting the disk) 

3. Using the Wedge program 

C. Disk commands 

1. LOAD program name 

2. SAVE program name 

3. Betting a CATALOG listing 

4. SCRATCH program name 

5. Using the Wedge program 

6. Wedge abbreviations /, )*, >@, R» S, and V 

III. Typing and Editing (15 minutes) 

A. Review commands and keys used to edit a program 

1. LIST 

2. CRSR keys 

3. INST/DEL key 

4. RETURN key 

B. Demonstrate each of the following editing techniquess 

1. Correcting lines in a program 

2. Adding new lines to a program 

3. Deleting a single line in a program 

4. Deleting a group of lines in a program 


LAB GUIDE 

Use the first lab to format the students* disks and then 
have the students work through the material in chapter ®. There 
will be lots of questions in the first lab, so a student tutor or 
two to assist the instructor can help reduce the chaos level. 



CHAPTER 1 


COUNTING EGGS 

Using the LET statement 


OVERVIEW 

This chapter is covers the LET statement in some depth 
while, at the same time, giving the student more experience with 
solving simple programming problems. In this chapter, the LET 
statement is used only with numeric variables which are not 
rounded off. 

The student is also encouraged to become more skilled in the 
use of the escape mode to edit lines. 
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OBJECTIVES 

The student should be able to: 

1. use a LET statement to assign a value to a numeric 
variable. 

2. use a LET statement to calculate a value from a simple 
formula and assign the value to a numeric variable. 

3. recognize invalid variable names. 

4. recognize when variable names have the same first two 
characters. 

5. use a PRINT statement to display results in a program. 

6. get a printed listing on the printer. 
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LECTURE GUIDE 

I. Assigning Values to Numeric Variables (10 minutes) 

A. The LET Statement 

8. The Nupber Format 

C. Variable Names 

il» Using a Simple Formula (15 minutes) 

A. Arithmetic Operators 

B. Arithmetic Expressions 

III. Using the Print Statement to Display Results (10 minutes) 

IV. Using the Printers in the Lab 

A. 0PEN4,4 and CMD4 to turn the printer on 

B. CLQSE4 to turn the printer off 

C. Printer controls - select, form feed, line feed 
LAB GUIDE 

This lab should be devoted to learning the procedures for 
entering a program, listing a program, running a program, making 
a printed copy of a list, making a printed copy of a run, and 
editing a program. These are all things that students learn best 
in a hands-on lab class. Have some student tutors available, if 
possible, because there will be lots of questions. 



CHAPTER 2 


DOING IT RIGHT 

Programming Standards 


OVERVIEW 

This chapter introduces the student to the concept of prog¬ 
ramming standards and structured programming. Techniques for 
making programs seIf-documenting and easy to understand and main¬ 
tain are presented at a fairly simple level. 

We also introduce the four rounding functions in this chap¬ 
ter. Although it is somewhat early to introduce defined func¬ 
tions, we find that by this time the students see a clear need 
for them and have relatively little trouble getting them to work. 
We tell the students that they don*t have to understand the 
functions at this point, only use them. Getting the rounding 
functions right also serves to demonstrate to the student the 
value of the BASIC editor for editing lines. 
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OBJECTIVES 

The student should knows 

1. the reasons for using programming standards. 

2. the reason for using a STARTER program. 

3. how to enter a program using the STARTER program. 

4. how to use the rounding functions. 

5. how to use a print statement to print a number and a 
message that identifies the message. 

6. how to use the REM statement to put remarks in a 
program. 


LECTURE GUIDE 

I. Programming Standards (25 minutes) 

A. The STARTER Program 

1. Program name on line 1 

2. Programmer 9 s name on line 2 

3. Date on line 3 

4. List of variables starting in line 11 

5. Rounding functions in lines 40 to 48 

6 Clear screen and print program name on line 101 

B. Authors 9 STARTER Program 

We prefer a slightly different STARTER program than the 
one given in the text. In the authors 9 STARTER program f 
the student 9 s name and the date are printed below the 
program name. The following two lines are added to the 
starter program to print the name and dates 

103 PRINT TAB(20 - (LEN (NA*> / 2)) NA* 

104 PRINT TAB(20 - (LEN (DA*) / 2)) DA* 

The placement of the program name, the student's name, 
and the date can be changed to suit individual 
preferences. 


II. Remark Statements (5 minutes) 
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III. Rounding Numbers <10 minutes) 

At first glance f it may seem odd to include user defined 
functions in the STARTER program. However, our experience 
doing this has been very positive. The need for rounding 
numbers comes up almost immediately, and students are 
bothered by numbers that carry to seven or eight decimal 
places. Our first attempt to correct this problem was to 
give the students the rounding equations and attempt to 
teach them how to use them. The result was a lot of typing 
errors because the equations are rather complex and students 
really did not understand them. Using the defined functions 
in the STARTER program is a much better solution. The 
students do not need to understand the rounding equations 
nor do they have to type them. All the student has to do is 
learn how to use the defined functions. This has proved to 
be a relatively easy task. 


IV. Using the STARTER Program <15 minutes) 

If possible do a "live** example of how to enter a program 

using the STARTER program. 

A. LOAD and LIST the STARTER program. 

B. Change line 1 to PN* = "P-2B MPG" 

C. Change the date in line 3 

D. Enter the following lines of Program 2B. 

1. Lines 11, 12, and 13 

2. Lines 110, 120, 130, 140, 150, and 160 

3. Explain the use of the rounding function in line 
140. 

4. Point out the message printed in line 150 to label 
the output as miles per gallon. 

E. RUN the program. 

F. SAVE the program using the name exactly as in PN$. 

The author uses the following technique to minimize 

errors in the name of the program. 

1. Run the program. 

2. Type ?PN$ and press the return key. 

3. The name of the program should appear on the 
screen. 

4. Use the cursor keys and the BASIC editor to SCRATCH 
and SAVE the file. 

5. Explain the necessity of using SCRATCH to delete 
the file before saving it. <The SAVE @ command is 
unreliable. ) 
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LAB GUIDE 

The purpose of this lab is to give the students practice 
using the procedures to enter a program, get printed copies of 
the LIST and RUN of a program, and to SAVE a program. 

In this lab, students will enter, test, correct, and save the 
STARTER program on their disk. Then they will use the STARTER 
program as the starting point for entering P-2 MPG. The 
students should change the function in line 140 and test each 
change until all four rounding functions have been tested. In 
helping students, the instructor should keep in mind that a 
syntax error in a rounding function will result in an error 
message that designates the line that uses the function. For 
example, if there is a syntax error in the definition of FN A in 
line 42 and line 140 uses FN A, then the error message: 7SYNTAX 
ERROR IN LINE 140 will appear on the screen. The error message 
is somewhat misleading because the error is in line 42, not in 
line 140. When looking for a syntax error in a line that uses a 
defined function, always check the function definition for a 
possible error. 



CHAPTER 3 


GETTING DATA IN 

Two More Methods of Input 


OVERVIEW 

This chapter concentrates on the basics of input. It intro¬ 
duces the INPUT and READ/DATA statements. It also gives students 
experience with modifying existing programs and using programs 
written by someone else as a model on which to base their own 
programs. Since most real programming work involves modifying or 
cannibalizing existing programs we have tried to give the student 
extensive experience with both. 

OBJECTIVES 

The student should know: 

1. the syntax of the READ and DATA statements. 

2. how to use READ and DATA statements to assign values to 
numeric variables. 

3. the syntax of the simple INPUT statement. 

4. how to use a PRINT statement to print a prompt message 
and an INPUT statement to assign a value to a numeric 
variable. 
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LECTURE GUIDE 

I« Using READ/DATA Statements to Enter Data <20 minutes) 

A. The READ and DATA statements 

B. The data pointer 

C. The RESTORE statement 

D. Program 3A — explain and demonstrate 

II. Using the INPUT Statement to Enter Data <20 minutes) 

A. The INPUT statement 

B. The prompt message using a PRINT statement 

C. The prompt message in the INPUT statement 
e. g. 110 INPUT "HOW MANY MILES "5 DIST 

D. Program 3B - explain and demonstrate 

III. Demonstration Runs of Programs 3.1 and 3.2 <5 minutes) 

LAB GUIDE 

This lab should give students a good grasp of the procedures 
to enter a program, get printed copies of the LIST and RUN of a 
program, and to SAVE a program. The programming assignments are 
modest and the students should show evidence of becoming accus¬ 
tomed to all the new procedures thrust upon them. 



CHAPTER 4 


LET'S DO THAT AGAIN 

Looping with GOTO and IF Statements 


OVERVIEW 

This chapter introduces the concept of looping. We cover 
only looping with GOTO so that the student can get a clear under¬ 
standing of looping before going on the the FOR/NEXT construc¬ 
tion. First simple looping is taught, then how to terminate a 
loop with an IF statement. This introduces the IF statement as 
well. 
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OBJECTIVES 


The student should knowt 

1. how to use a SOTO statement to produce a loop in a 
program. 

2. how to determine the output produced by a program with 
a SOTO loop. 

3. what causes the ?OUT OF DATA ERROR message. 

4. the syntax of an INPUT statement containing a 
prompt message. 

9. how to use a loop counter and an IF statement to produce 
a loop that terminates after a given number of passes. 

6. how to determine the number of passes in a program with 
a loop-counter—IF-statement loop. 


LECTURE 6UIDE 

I. Concepts of Program 4 (5 minutes) 

A. How to Make a Loop 

1. The simple but ungraceful method (Program 4A): 

Use a SOTO and allow a crash when the data runs 
out. 

2. A more graceful method (Program 4B): 

Use a counter and an IF statement to terminate the 
loop when the counter reaches a certain value. 

B. How to Print Messages to Prompt Input and Label Output 

II. The Simple But Ungraceful Loop (19 minutes) 

A. Explain the SOTO statement 

B. Demonstrate a RUN of Program 4A 

C. Write the ribbon of data on the board (see below) 

4<M> 19 369 18 286 14 318 17 

D. Walk-through a run of Program 4A. Explain how each 
number in the data ribbon is used to produce the four 
lines of output. 
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III. The Counter and IF Statement loop (20 minutes) 

A. The IF Statement 

1. IF (conditional) GOTO (line number) 

2. IF (conditional) THEN GOTO (line number) 

B. Counter—IF Loop with Exit and the End of the Loop 

120 INPUT N : REM N = # OF PASSES THRU THE LOOP 
130 LET C = 0 s REM SET COUNTER TO ZERO 
140 PRINT 
150 
160 
170 

160 PRINT N 

190 LET C ■ C + 1 s REM ADD 1 TO THE COUNTER 

200 IF C < N THEN GOTO 140 s REM LOOP AGAIN OR QUIT 

210 END 

1. Ask the class how many times N is printed. 

2. Stress the walk-through as the way to get the 
answer. 

3. Mention OBOB, the Off By One Bug 


C. Counter IF Loop with Exit at the Start of the Loop. 


120 

INPUT 

N 



130 

LET C 

= 1 s REM 

SET COUNTER 

TO ONE 

140 

IF C > 

N THEN SOTO £10 : REM LOOP AGAIN OR QUIT 

150 

m m m 

m 



160 

PRINT 

N 



190 

LET C 

= C + 1 : 

REM ADD 1 TO 

THE COUNTER 

200 

GOTO 140 s REM 

LOOP AGAIN 


210 

END 





1. Ask the class how many times N is printed) 

2. Use a walk-through to determine how many times N 
printed. 

D. Program 3B — demonstration 
IV. Demonstrat ion Runs of Program 4.1 and 4.2 (10 minutes ) 


is 


Demonstrate Programs 4.1 and 4.2. Point out the tips in the 
text at the end of each exercise. 



LAB GUIDE 


This lab introduces looping and with looping comes the 
opportunity to begin teaching students how to walk-through a 
program. Typical problems in this lab are misplaced IF state¬ 
ments, incorrect conditionals, and an incorrect order of state¬ 
ments. These problems present excellent opportunities to begin 
instilling in students the knowledge that they can determine 
exactly what will happen in a program by thinking through each 
step in the execution of the program. 



CHAPTER 5 


GOING AROUND AGAIN 

Looping with a FOR/IMEXT Statement 


OVERVIEW 

This chapter is intended to give the student a very solid 
grasp of the use of FOR/NEXT loops for various purposes. The 
advantages of FOR/NEXT loops over GOTO loops is demonstrated and 
the principles involved in presenting simple tables are shown. 

OBJECTIVES 

The student should know: 

1. the syntax of the FOR/NEXT statements. 

2. how to determine the number of passes through a FOR/NEXT 
loop and the output produced by a FOR/NEXT loop. 

3. how to write a program that produces a table with a 
heading. 

4. how to use the comma and semicolon as delimiters in 
PRINT statements. 

5. how to use a FOR/NEXT loop to add a 1ist of numbers. 

G. the proper placement of SUM = 0 and SUM = SUM + X in 
programs that add a list of numbers. 
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LECTURE GUIDE 


Reading Assignments Appendix E — Introduction, Steps in Writing 

a Program, Problem Definition. 

I. Statements Used in Exercise 5 

A. FOR/NEXT Statement (10 to 20 minutes) 

Explain the syntax of the FOR/NEXT statements and use 
following example to illustrate the FDR/NEXT loop. 

110 FOR I * 2 TO 10 STEP 2 
120 PRINT I 
130 NEXT I 


Conduct a detailed walk-through of the above example. 
Use the blackboard or other suitable means to display a 
walk—through table similar to the following: 


Pass # I 
1 2 

2 4 

3 6 

4 a 

5 10 


Value Printed 
2 
4 
6 
a 
10 


B. PRINT Statement and the Comma <5 to 10 minutes) 

Describe the four print zones on the screen and 
explain how the comma is used to print in zones 2, 3, 
and 4. 


Use Example 5A to illustrate how the comma is used to 
print a two column table with columns in zones 1 and 2. 


120 PRINT "CELSIUS", "FAHRENHEIT" 

160 PRINT C, F 

If time permits, develop the following walk-through 
table on the blackboard. 


Pass # 

C 

F 

1 

0 

32 

2 

10 

50 

3 

• 

20 

■ • 

68 

■ ■ 

11 

m m 

100 

212 



II. Steps in Writing a Program <2® to 40 minutes) \ 

For the first time in this text, students are asked to 
develop a program from a problem statement. This is the 
time to stress the 10 steps in writing a program and to 
illustrate the procedure with the following "live" example. 

Problem Statements Write a program that will read the 
numbers of free throws made and free throws tried for 5 
basketball players, calculate the free throw percentage, 
and print a table of free throws made, free throws tried, 
and percentage of free throws made. 

STEP Is Study the problem, determine the variables 

required, and pick a name for each variable. 

LIST OF VARIABLES 

Left Columns FM * Free Throws Made 
Middle Columns FT * Free Throws Tried 
Right Columns P » Percentage Made 
Loop Counters C * FOR/NEXT Loop Counter 

STEP 2s Develop a method for solving the problem. 

1. Print the Heading 

Use the following three line heading. 

FREE FREE FREE 

THROWS THROWS THROW 

MADE TRIED PERCENT. 

2. Use a FOR/NEXT statement to make a loop that will 
have S passes. 

FOR C » 1 TO S 

NEXT C 

3. Do the following in each pass through the loops 

a. Read FM and FT 

b. Calculate P *= 100 * FM / FT 

c. Round P to one decimal place 

d. Print FM, FT, P in zones 1,2,3 

STEP 3s Calculate two answers by hand for testing the 
program. 

1. FM « 10, FT - 20, P - 100 * 10 / 20 « SO 

2. FM ■ IS, FT ■ 45, P » 100 * 15 / 45 « 33.3 



STEP 4s Write the BASIC Program (include only the lines 
that are not part of the starter program). 

I PN* • “FREE THROW TABLE" 

II REM FM = FREE THROWS MADE 

IS REM FT = FREE THROWS TRIED 

13 MEM P = PERCENTAGE OF FREE THROWS MADE 

14 REM C » FOR/NEXT LOOP COUNTER 

110 PRINT 

ISO PRINT "FREE", "FREE", "FREE" 

130 PRINT "THROWS", "THROWS", "THROWS" 

140 PRINT "MADE", "TRIED", “PERCENT." 

ISO PRINT 

160 FOR C = 1 TO 5 

170 READ FM, FT 

ISO LET P = 100 * FM / FT 

190 LET P - FN B(P) 

BOO PRINT FM, FT, P 
S10 NEXT C 
SSO DATA lO, SO 
S30 DATA IS, 45 
S40 DATA 17,SS 
250 DATA SO, 42 
260 DATA 14,18 
270 END 

Comments Remind students that they have already practiced 
steps 5, 6, 7, and 10 in the previous exercises. 

STEP 5s Enter the program into the computer. 

STEP 6s LIST and RUN the program. 

STEP 7s Correct any syntax errors. 

Explain syntax errors (see Appendix E). 

STEP Bs Check for logic errors. 

Compare the hand calculated values from Step 3 with 
the results produced by the program. 

STEP 9s Correct logic errors. 

In this program, logic errors would be in lines 
170, 180, or 190. 

STEP 10s Save the final version of the program and produce 

a LIST and a RUN for the final documentation of the 
program. 
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III. Adding a List of Numbers (20 to 40 minutes) 

A. Explain the working parts of Program 5B. 

1. Clear the variable used to accumulate the total. 

120 LET SUM * 0 

2. Use a FOR/NEXT loop to input and add the numbers. 

160 FOR 1=1 TO N 
170 INPUT X 
180 LET SUM = SUM + X 
190 NEXT I 

B. Complete a walk-through of a RUN of Program 5B to add 5 
numbers. 

Pass * I X BEGINNING SUM 
115 0 

2 2 7 5 

3 3 6 12 

4 4 3 18 

5 5 2 21 

IV. Demonstration Runs of Programs 5.1 - 5.7 

If possible, demonstrate each exercise with a run of the 
program from the Instructor's disk. As each program is run, 
emphasize the tips for that exercise. 

A. Exercise 5.1 

1. Use a separate loop counter such as I. 

2. Renumber lines 110 through 150 from Program 4A and 
place them inside the loop. 

B. Exercise 5. 2 

1. Use the variable PRICE as both price and the loop 
counter. 

2. Round both PRICE and TAX to two decimal places. 
Failure to do this will result in values of price 
such as .890000001 and the loop will terminate at 
.990000001 instead of 1. 


ENDING SUM 
5 
12 
18 
21 
23 
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C. Exercise S. 3 

1. Use two PRINT statements to print the heading. The 
first PRINT statement should print "ALTITUDE", 
“ALTITUDE". The second statement should print "IN 
FEET", "IN MILES". 

2. Use the variable FEET for both altitude in feet and 
the loop counter. 

D. Exercise 5.4 

1. Use three lines to print the heading. 

2. If you use X A 2 to compute X squared, you must round 
X squared to the nearest integer or you will get 
49.8000001 for 7 squared and Bl.OOOOOOl for 9 
squared. 

3. Round the square root of X to three decimal places. 

E. Exercise 5.9 

1. Round A, the amount, to two decimal places. 

F. Exercise 5 .S 

1. Break the profit formula into three steps as belows 

LET R = 212 * N 

LET C = 1250 + 120 * N + 0.75 * N~2 

LET P = R - C 

2. Round P to two decimal places. 

G. Exercise 5.7 

1. This is a challenging problem. 



LAB GUIDE 


Some students will occasionally type the letter 0 instead of 
the number 0. An experienced programmer will usually spot this 
immediately, but students usually do not see it until it is 
pointed out to them. 

Stress the importance of completing Steps l f 2, 3, and 4 

before attempting Step 5 (Enter the program into the computer). 
Many students 9 minds seem to disengage the instant their fingers 
touch the keyboard. 

Some students will type lines 40 - 48 and will make an error 
in one of the function definition lines. This results in a 
syntax error that lists the number of the line that uses the 
function to round the value of a variable. The student will 
focus their attention on the line mentioned in the syntax error 
and will rarely find the error without assistance. If a syntax 
error lists a line that uses a defined function, always examine 
the function definition for a possible error. 

Failure to round some variables produces tables that are a 
complete disaster. Numbers with 9 digits and a decimal point 
will occupy two print zones, forcing the next number to be 
printed to in the wrong zone. If a long number is printed in 
zone 4, the next number will wrap around into zone 1 of the next 
line. Some decimal fractions such as 0.1 and 0.01 cannot be 
represented exactly in binary. This results in an accumulated 
error in programs such as Program 5.2. The simplest solution is 
to round the variables (e.g. PRICE) to two places. 



CHAPTER 


WHERE DO WE GO FROM 
HERE? 

Branching with IF Statements 

OVERVIEW 

Chapter 6 deals with the use of the IF statement 
more complicated decisions. Multiple branches and 
several mutually exclusive processes are covered. 
FOR/NEXT loops are covered as well as how to mirror 


to make 
creating 
Nested 
real-life 


processes like a savings account with a nested loop, 



27 


OBJECTIVES 

The student should know. 

1. the syntax of the IF/THEN statement. 

2. how to use IF statements with mutually exclusive 
conditionals to select different formulas for computing 
the value of a variable. 

3. how to determine which of two or more IF statements 
will be executed under a given set of conditions. 

4. how to determine the results of the run of a program 
that contains IF statements. 

5. how to use nested FOR/NEXT statements to produce a pass 
for every month over a period of several years. 

6. how to use item 5 to simulate some monthly action such 
as interest, loan payment, pay, etc. 
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LECTURE GUIDE 

I. IF Statements 

A. Syntax (10 minutes) 

1 - IF (conditional) GOTO (line number*) 

2- IF (conditional) THEN (single statement) 

3. IF (conditional) THEN (statement s statement ...) 

Use the following example to illustrate how the IF 
statement works. A "live" demonstration of this 
example is especially effective. Enter the example and 
make several runs of the program to show an output from 
each IF statement. 


110 

INPUT "ENTER A, B"; 

Ay B 

120 

IF A = B THEN PRINT 

"EQUAL" 

130 

IF A > B THEN PRINT 

"A IS GREATER" 

140 

IF A ( B THEN PRINT 

"B IS GREATER” 

150 

PRINT "DONE" 


160 

END 



B. Relational Operators and Conditionals (10 minutes) 

C. Demonstrate Example 6A — Gross Pay (10 minutes) 

D. Demonstrate Example 6B - Gas Bill (10 minutes) 

E. Logical Operators in Conditionals (10 minutes) 

1. IF (AVG < 95) AND (AVG > = 85) THEN G$ = "A" 

2. IF G ( 3 THEN C = 3.50 

3 . IF (G > 3 ) AND (G ( = 40) THEN C = 3.5 + 37 * 0.35 

+ (G - 3) * 0.35 

4. IF (G > 40) AND (G ( = 100) THEN C = 3.5 + 37 * 

0.35 + (G - 40) * 0.31 

5. IF (G > 100) THEN C = 3.5 + 37 * 0.35 + 60 * 0.31 
+ (G - 100) * 0.30 

. IF (M ( 6) OR (M > 9) THEN PRINT "OCTOBER TO MAY" 


6 
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II. Nested FOR/NEXT Statements 


A. Walk—through Examples 


1. Example 1 


110 FOR I = 1 TO 3 

120 FOR J = 1 TO 4 

130 PRINT I ‘V J 
140 NEXT J 

150 NEXT I 


OUTER LOOP 
PASS # 

1 

1 

1 

1 

2 

2 

2 

2 

3 

3 

3 

3 


INNER LOOP 
PASS # 

1 

2 

3 

4 
1 
2 

3 

4 
1 
2 

3 

4 


2. Example 2 


PRINTED 
RESULT 
1 , 1 
1 , 2 
1 , 3 

1 , A 

2 , 1 
2 , 2 
2 , 3 

2 , A 

3 , 1 
3 , 2 
3 , 3 
3 , 4 


Add a print statement to Example 1 at line 145. 


145 PRINT 


Explain how line 145 puts a blank line between 1,4 
and 2,1 and another blank line between 2,4 and 3,1. 

3. Example 3 

Change line 130 in Example 2 as follows. 

130 PRINT I " J " "5 

Use the walk-through of Example 1 or 2 to explain 
how Example 3 produces the following table of 
number pairs. Point out that I is the row number 
and J is the column number of the number pairs. 

1.1 1,2 1,3 1,4 

2.1 2,2 2,3 2,4 

3.1 3,2 3,3 3,4 
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B. Simulation of a Monthly Event (5 minutes) 

Explain how a nested FOR/NEXT loop simulates years and 
months. Each pass through the outer loop is one year 
(12 months). Each pass through the inner loop is one 
month. 

120 FOR Y = 1 TO 3 

150 FOR M « 1 TO 12 

210 NEXT M 

230 NEXT Y 

C. Demonstrate and Explain Example 6 C (15 minutes) 

Each pass through the inner loop simulates one month. 
The statements in the inner loop simulate the month 9 s 
activities and must be in the same order as the events 
themselves. 


Line 

160 

makes the deposit on 

the 

first of the month. 


160 

LET 0 = 

ft + D 



Line 

170 

computes 

the interest 

at 

the end of the month 


170 

LET I = 

ft * R / 100 

/ 12 

Line 

160 

adds the 

interest to 

the 

account • 


180 

LET 0 = 

ft + I 




Lines 200-203 print the statement at the end of the 
month. 


200 PRINT Y; 

201 IF M < 10 THEN PRINT M - "5 

202 IF M > 9 THEN PRINT " - "; 

203 PRINT M, ft 

Walk-through of Program 6 C 


OUTER LOOP 

INNER LOOP 

ft ON THE 



ft ON THE 

PftSS # 

PftSS # 

FIRST DAY 

ft + D 

1 

LftST DftY 

1 

1 

3500. 00 

3620.00 

28. 96 

3648. 96 

1 

2 

3648. 96 

3768.96 

30. 15 

3799.11 

1 

m 

3 

■ 

3799.11 

m 

3919. 11 

m 

31.35 

m 

3950.46 

m 

3 

■ 

12 

m 

9489.19 

9609.19 

76. 87 

■ 

9686.06 
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III. Demonstration Runs of Programs 6.1 — 6.6 

If possible, demonstrate each exercise with a run of the 
program from the Instructor 1 s disk. As each program is run, 
emphasize the tips for that exercise. 

A. Exercise 6. 1 

1. Use W for wholesale cost and R for retail price. 

2. Be sure one of the conditionals has an equal sign. 

3. Use (W - 100) for wholesale cost over $100. 

B. Exercise 6.2 

1. Use S for sales and C for commission. 

2. Be sure one of the conditionals has an equal sign. 

3. Use (S - 5000) for sales over 5000. 

C. Exercise 6.3 

1. Use S1,S2, S3 for the three exam scores, AVG for the 
average score and G$ for the letter grade. 

2. Use a double conditional like the following: 

IF (AVG > 85) AND (AVG < = 95) THEN G$ ■ "B" 

D. Exercise 6.4 

1. Use Example 6C as the model for this program. 

2. Use an IF statement to add the deposit to the 
account for all months except January (M = 1). 

E. Exercise 6. 5 

1. Use N for the week number and S for the weekly 
salary. 

2. Use a GOTO loop that is terminated by an IF 
statement. Use the conditional s < 1000 to 
terminate the loop. 

F. Exercise 6.6 

1. Use K1 and K2 for the previous and present KWHR 
readings. 

Use an IF statement to branch to one routine for 
summer and a second routine for winter. 


2 . 
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LAB GUIDE 

A common error in Problem 6.1 is to forget to subtract 100 
when the wholesale price is greater than $100. Students will do 
the following: 

150 IF U > 100 THEN R = W + 20 + W*0.3 
instead of the correct statement. 

150 IF W > 100 THEN R = U + 20 + (W - 100) *0.3 

The same type of error occurs in Problem 6.2. A typical 
error in line 150 is: 

150 IF S > 5000 THEN C = S * 0.035 
instead of the correct statement. 

150 IF S > 5000 THEN C = 5000 * 0.083 + (S - 5000) * 0.035 

In Program 6.3, the authors have observe the following 
errors: 

1. Computing the average score by AVG = Si + S£ + S3 / 3 
instead of by AVG = (SI + S2 + S3) / 3. 

2. Using G instead of G$ for the letter grade or using A 
instead of "A" to assign a letter grade. 

LET G = "A" or LET G* = A instead of LET G$ = “A" 

3. Incorrect double conditionals similar to the following: 
IF 85 < = AVG < 95 THEN LET G* = *'A" 

In Program 6.4, students sometimes fail to convert the 
interest rate into a monthly interest factor by dividing by 1200. 



CHAPTER 7 


GETTING ARTISTIC 

Printing Patterns with Subroutines 


OVERVIEW 

Although this chapter appears to be about graphics it is 
really about subroutines and being careful. 

In this chapter we introduce, in a fun way, the subroutine. 
Students should come out of this chapter with a good grasp of 
subroutines and how they are used. Repeated calls to the two 
subroutines are made and there are many opportunities to go 
wrong. 

This chapter also demonstrates the importance of careful 
planning of a program. Students who attempt to generate their 
pattern by trial and error are usually doomed to failure since, 
in this program, programming mistakes usually generate garbage on 
the screen. The students learn that they must rigorously plan, 
design, and code the program if they are to be successful. 
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Putting a pattern of their own design on the screen also seems to 
give the students their first real sense of accomplishment and 
mastery. They feel they have finally made the computer do some¬ 
thing THEY wanted it to do. 


OBJECTIVES 

The student should knows 

1. the syntax and function of the GQSUB and RETURN 
statements. 

2. how to use string variables in input and print 
statements. 

3. how to determine the pattern produced by a short 
program. 

4. possible causes of the RETURN WITHOUT GOSUB ERROR 
message 


LECTURE GUIDE 

I. GOSUB and RETURN Statements and Subroutines 
P. Purpose of Subroutines (5 minutes) 

1. To divide a program into small, more manageable 
units. The program units should be small enough 
that the entire unit can be shown on the screen at 
once. 


2 


To use a sequence of instructions more than once in 
a program. 
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B. Syntax and Operation (10 minutes) 

Use the following example to illustrate how the GOSUB 
and RETURN statements function. 


110 LET N = 2 : GOSUB 1000 

120 LET N = 3 : GOSUB 1000 

130 LET N = 4 : GOSUB 1000 

140 LET N = 5 : GOSUB 1000 

150 END 
160 : 

1000 REM == SUBROUTINE TO PRINT A ROW OF X’S == 
1010 FOR I ■ 1 TON 
1020 PRINT "X"{ 

1030 NEXT I 
1040 PRINT 
1050 RETURN 

II. Producing Patterns 


ft. Concepts of Program 7 (5 minutes) 

1. How to use subroutines to simplify a program that 
repeats a set of instructions many times. 

2. How to develop an algorithm to produce a desired 
result (the pattern) and how to implement that 
algorithm in a program. 

3. How to find and correct errors (i.e. debug) a 
program. 

B. Demonstrate Example 7A - Christmas Tree (25 minutes) 

1. Draw the planning grid on the board and mark the 
Christmas tree on the grid. 

2. Count the number of spaces and characters on each 
line and write the numbers on the right side of 
each line. Explain that these are the number of 
spaces and characters that must be printed to 
produce that line of the pattern. 

3. Show how the number of spaces and characters are 
placed in the data statements. 

4. Explain line by line how the main program is keyed 
to the data. This is the concept that students 
find the most elusive. They quickly grasp the 
connection between the pattern and the data 
statements, but they often overlook the connection 
between the pattern and the arrangement of GOSUB 
statements in the main program. 
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C. Demonstrate Program 7B - The Old Mood Shed 

The Old Wood Shed program is on the Instructor’s disk. 
The main feature of this program is the use of FOR/NEXT 
loops to reduce the number of GOSUB 500 : GOSUB 600 
pairs in the program. 

III. Assignment 

This is the most popular and often the most challenging 
program in the text. Caution students to keep the pattern 
simple. Then, when they fully understand how the program 
works, they can attempt a more complex pattern if they wish. 

LAB GUIDE 

The high level of student interest, the variety of patterns, 
and the challenge offered to students make this one of the 
authors’ favorite lab assignments. It is amazing how one missing 
number in the data statement, or an error in punctuation can 
completely destroy the pattern. Then when the student corrects 
the error, runs the program, and sees the pattern appear on the 
screen — the look on the student’s face at that instant is one 
of the great rewards of the teaching profession. 

^ printed copy of the RUN and LIST of the program is very 
useful in debugging a program. Tell the student to start by 
checking the data statements and the subroutines. If they are 
both correct, then check the main program line by line. Some 
problems the authors have observed include missing NEXT state¬ 
ments, two spaces between quotes in line 530, the letter 0 in 
place of the number 0 in GOSUB statements (i.e. GOSUB 500 instead 
of 500), missing numbers in a DATA statement, and errors in the 
algorithm of the main program. 



CHAPTER 8 


FUNCTIONING 

Using Functions Properly 


OVERVIEW 

Chapter 8 covers the TAB function, the RNO function and all 
the string functions in some detail. It also covers the 
details of printing a table with a heading and standard column 
formats. 

The RND function is used to simulate random events like 
drawing a card. A modular subroutine to pick a number within a 
certain range is introduced and used to further explain the value 
of structured, modular programming. 

The string functions are covered in some detail. We attemp¬ 
ted to give the student a firm grasp of how strings can be 
analyzed, combined, and broken down. 
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OBJECTIVES 

The student should know: 

1. the syntax of the TAB function. 

2. how to use the TAB function to position the columns of 
a table. 

3. how to determine the output of a program that uses the 
TAB function. 

4. how to determine the possible values of N that could be 
returned by the random number subroutine (or line number 
210 in the random number subroutine.) 

5. how to use the LEFTS, RIGHTS, MIDS, AND LEN functions. 


LECTURE GUIDE 

I. Functions Used in Exercise 8 

A. The TAB Function (10 to 15 minutes) 

Use Example 8A to demonstrate the TAB function. 

B. RND Function (15 minutes) 

1. Explain how the RND function is used to produce a 
random integer between 1 and 4. 

RND (1) = a random number between 0 and 0.99999999 

4 * RND (1) = a random number between 0 and 

3.99999999 

INT (4 * RND (1)) = a random integer from the set 

<0, 1, 2, 3> 

INT (4 * RND (1)) + 1 = a random integer from the 

set (1, 2, 3, 4> 

2. General Form 

5 = INT (NN * RND (1)) + LL 
NN = UL + 1 - LL 

where: 

NN = number of random integers 

LL = lower limit of the set of random integers 
UL = upper limit of the set of random integers 

3. Demonstrate Example SB - Pick a Card 
D. String Functions (20 minutes) 

Demonstrate Example 6D 
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II. Demonstration Runs of Programs 8.1 - 8.8 
ft. Exercise 8. 1 

1. Use tabs 11, 21, and 31 for columns 2, 3, and 4. 

2. Use X as the FOR/NEXT loop counter 

8. Exercise 8.2 

1. Use tabs 11, 21, and 31 for columns 2, 3, and 4. 

2. Use FEET for altitude in feet and the FOR/NEXT 
loop counter. 


C. Exercise 8. 3 

1. Use tabs 12, 21, and 31 for columns 2, 3, and 4. 

2. Inside the inner loop, do what the bank does — 
calculate the interest payment, calculate the 
principal payment, calculate the new balance, and 
print the four values. 

D. Exercise 8.4 

1. Use tabs 11, 21, and 31 for columns 2, 3, and 4. 

2. Use Dl, D2, and D3 as the variables for the three 
dice. 

E. Exercise 8.5 

1. Use SI, S2, S3, Sl$, S2$, and S3$ as the variables 

for the suit numbers and the suit names. 

2. Use Cl, C2, C3, Cl$, C2$, and C3$ as the variables 

for the card numbers and the card names. 

3. Use the following algorithm in the main program. 

a. Draw the first card 

b. Draw the second card 

c. If the second card is the same as the first 
card then go to step b 

d. Draw the third card 

e. If the third card is the same as the second 
card then go to step d 

f. If the third card is the same as the first card 
then go to step d 

g. Print the three cards 
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F. Exercise B. 6 

1. Write a subroutine to find the comma in a string 
and return with I equal to the location of the 
comma. 

2. Write a subroutine to remove the comma in a string. 
This subroutine will use the first subroutine to 
find the comma and then it will remove the comma. 

3. Write a third subroutine to find the space in a 
string and return with I equal to the location of 
the space. 

4. Write a fourth subroutine to split the names. This 
subroutine will use the third subroutine to find 
the space and then it will split the names. Use 
one variable for the first name and a second for 
the last name. 

5. Write a fifth subroutine to print a place card. 

6. Write a main program that reads each name from DATA 
statements, calls the subroutine to remove the 
comma, calls the subroutine to split the names, 
puts the names together in reverse order, and calls 
the subroutine to print the place card. 

G. Exercise 8.7 

1. Revise the subroutine from Exercise 8.6 to find the 
space so it will only examine part of a string 
(i.e. a substring). Use LI for the first character 
of the substring and L2 for the last character of 
the substring- 

2. Write a subroutine to remove a middle initial. 

3. In the main program, call the subroutine to remove 
a middle initial immediately after the comma is 
removed. 

H. Exercise 8.8 

1. Revise the subroutine to find a space so it returns 
with S$ = M ” if there was a space in the substring 
and S$ = "NO SPACE FOUND” if there was no space in 
the substring. The variable S$ is called a 
messenger string because it carries a message to 
the routine that called the subroutine. 

2. Revise the subroutine to use the messenger string 
to determine whether or not the name has a middle 
initial and to respond accordingly. 
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LftB GUIDE 

Students do quite well with Exercises 8. 1 — 8.4. They seem 
to have pulled a few thing together and they have little trouble 
understanding the TBB function- Exercise 8.5 provides a chal¬ 
lenge - the tips in the LECTURE GUIDE should help students under¬ 
stand the algorithm. Exercises 8.6, 8.7, and 8.8 should present 
some challenges for the brighter students that tend to get a 
little restless working on the simpler problems. 



CHAPTER 9 


KEEPING TRACK 

Using Subscripts and Sorting 


OVERVIEW 

In this chapter we begin to combine previous elements and 
develop the skills necessary to successfully complete the major 
program to be written for chapter 10. We introduce the concepts 
of subscripted variables and sorting as well as practical consi¬ 
derations about data entry routines, reusable subroutines to 
print tables, etc. The emphasis is on modular programming so 
that the program can be easily written, debugged, and finally, 
changed into the program for chapter 10. 
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We have not discussed sorting algorithms as we feel that 
sorting methods are independent of the language used and are best 
taught in an algorithms course not a language course. We do, 
however, cover sorting alphabetically and numerically since this 
is language specific. Our sorting method was chosen because we 
have found it to be the easiest to understand. It is fairly 
inefficient as every element, starting with the first, is com— 
pared with every element below it and the two swapped if 
necessary. The separation of the sort and swap subroutines again 
demonstrates modular programming. 

The chapter also covers the DIM statement and shows how a 
brief main section of a program can control a series of nested 
subroutines to perform complicated tasks and still be readily 
understood. Students are encouraged to write and debug the 
individual subroutines rather than entering the whole program at 
once. 

OBJECTIVES 

The student should knows 

1. the syntax of the DIM statement. 

2. possible causes of the ?REDIM f D ARRAY ERROR 
message. 

3. how to use subscripts to enter and print a list. 

4. how to modify the sort routine to sort a list of names 
or numbers in ascending or descending order. 

5. how to modify the swap routine to keep several related 
variables together during a sort. 

6. how to determine the results of a program that assigns 
and prints subscripted variables. 
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LECTURE GUIDE 

I. Subscripted Variables (50 minutes) 

A. Overview of Subscripted Variables 

1. Subscripted variables are a convenient way to store 
a list or table of names or numbers in a group of 
memory cells. 

2. We give the same name to all memory cells in the 
group and use one or more subscripts to distinguish 
between the memory cells in the group. 

Example: A(l), A(2), A(3) v . A(N) 

3. The computer reserves enough memory cells for 
subscripts from 0 to 10 (11 memory cells). If 
you use a subscript greater than 10 9 you MUST 
include a DIM statement in your program. 

51 DIM A(20) reserves enough memory cells for 
subscripts from 0 to 20 . 

4. Variable names and even expressions may be used to 
define the value of a subscript. 

Examples: A(I) B2(I + 2 * J) 

When a variable or an expression is used to define 
a subscript, the subscript is equal to the integer 
part of the value of the variable or expression. 

B. Using Subscripted Variables to Enter a List of Names 

Use the following program to demonstrate how to use a 
FOR/NEXT loop to read names from a data statement and 
assign the names to a subscripted variable array. 

110 FOR I = 1 TO 10 
120 READ NS (I) 

130 NEXT I 

140 DATA JIM, BOB, PAUL, JANE, SUE 

150 DATA BETTY, CARL, CAROL, ALLEN, ETHEL 

Enter and run the above demonstration program. Use 
immediate mode to print the contents of NS (I) on the 
screen. To do this, just type the following line of 
three instructions without a line number and hit the 
RETURN key. 

FOR I s 1 TO 10 3 PRINT NS (I) 3 NEXT I 
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B. Using Subscripted Variables to Print a List of Names 

Add the following lines to the demonstration program 
and then run the program. 

160 FOR I = 1 TO 10 
170 PRINT N*(I) 

180 NEXT I 
190 PRINT 

C. Using Subscripted Variables to Enter and Print a List 
of numbers. 


Add the following lines to the demonstration program 
and then run the program. 


210 

FOR I = 1 TO 10 




220 

READ S(I) 




230 

NEXT I 




240 

DATA 5000, 2500, 

3100, 

6200, 

4700 

250 

DATA 2850, 4420, 

5260, 

3920, 

5600 

260 

FOR I - 1 TO 10 




270 

PRINT N*(I); TAB 

(15) ; 

S<I> 


280 

NEXT I 





D. Using Subscripted Variables to SUM a List of Numbers 

Add the following lines to the demonstration program 
and then run the program. 

310 SUM = 0 

320 FOR I = 1 TO 10 

330 SUM = SUM + S(I) 

340 NEXT I 

350 AVG « SUM / 10 

360 PRINT 

370 PRINT "SUM ="; SUM ; TAB(20); “AVG ="; AVG 
380 PRINT 

E. Using Subscripted Variables to Calculate or Update a 
List of Numbers. 

Add the following lines to the demonstration program 
and then run the program. 

410 FOR I = 1 TO 10 

420 LET D(I) = S(I) - AVG 

430 PRINT N«(I); TAB(15); D(I) 

440 NEXT I 
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II. Sorting Names and Numbers (30 minutes) 

A. The Simple Sort 

A chalkboard walkthrough can be an effective method for 
explaining how a sorting algorithm works. Write the 
following simple sort routine on the board. 

600 FOR I = 1 TO 4 
610 FOR J = I + 1 TO 5 

620 IF A(I) ) A(J) THEN GOSUB 1000 s REM SWAP VALUES 
630 NEXT J 
640 NEXT I 

The above program will sort A<I) 9 a numeric array of 
five numbers, into ascending order. Draw five boxes 
on the board to represent the elements of array Ad) 
as shown below. 

A (1) A (2) A (3) A (4) A<5) 


I I I I I I 
I I I I I I 
I I I I I I 


Start the walkthrough with the following numbers in 
array ACI). 

10 6 6 3 2 

1. Inner loop pass #1: 1=1 and J = 2 

Line 62© compares 10 with 6 and swaps them. 

Array ACI) now contains: 6 10 6 3 2 

2. Inner loop pass #2: 1=1 and J = 3 

Line 620 compares 6 with 6 and does not swap them. 
Array Ad) still contains: 6 10 8 3 2 

3. Inner loop pass #3: 1 = 1 and J = 4 

Line 620 compares 6 with 3 and swaps them. 

Array Ad) now contains: 3 10 8 6 2 

4. Inner loop pass #4: 1=1 and J = 5 

Line 62© compares 3 with 2 and swaps them. 


Array Ad) now contains 


2 10 8 


6 3 
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5. Inner loop pass #5: 1=2 and J = 3 

Line £20 compares 10 with 8 and swaps them. 

Array A(I) now contains: 2 8 10 6 3 

6. Inner loop pass #6: 1=2 and J = 4 

Line £20 compares 8 with £ and swaps them 
Array A(I) now contains: 2 £ 10 8 3 

7. Inner loop pass #7: 1=2 and J = 5 

Line £20 compares £ with 3 and swaps them. 

Array Ad) now contains: 2 3 10 8 £ 

8. Inner loop pass #8: 1=3 and J = 4 

Line £20 compares 10 with 8 and swaps them. 

Array Ad) now contains: 2 3 8 10 £ 

9. Inner loop pass #9: 1=3 and J = 5 

Line £20 compares 8 with £ and swaps them. 

Array Ad) now contains: 2 3 £ 10 8 

10. Inner loop pass #10: 1=4 and J = 5 

Line £20 compares 10 with 8 and swaps them. 

Array Ad) now contains: 2 3 £ 8 10 

Array Ad) is now in ascending order. If the greater 
than symbol in line £20 is changed to a less than 
symbol, then array Ad) would be sorted into descending 
numerical order. A similar walk-through can be used to 
explain the sorting of a string array into alphabetical 
order or reverse alphabetical order. 
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B. Swapping Names and Numbers 

Swapping is a three step process that involves an 
intermediary or temporary variable that holds one value 
while the second value is passed from one variable to 
the other. The following is a walk-through of the swap 
of an array of names with an array of scores that are 
associated with the names. The swap must maintain the 
integrity of the association between the names and 
their scores. 

Begin the walk-through with the following six boxes to 
represent the variables that are to be swapped and the 
two temporary variables used and the intermediaries. 


N«(I> 


SCI) 

i i 

1 JONES 1 

1 

I 

93 


I II I 


N$<J) 


I I 

I SMITH I 

I I 


T* T 


I I 

I I 

I I 


1. STEP li Copy JONES into T* and 93 into T. 

1020 LET T* « N*(I) i LET T = S(I) 

2. STEP 2: Copy SMITH into N*(I) and 82 into S(I). 
1030 LET N*<I> » N*(J> : LET S(I> - S(J) 

3. STEP 3s Copy JONES into N*(J) and 93 into S(J). 
1040 LET N*(J) * T* s LET S(J) = T 



SCJ) 

I I 

I 82 I 

I I 
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III- Demonstration Runs of Programs 9.1 - 9.5 (20 minutes) 

If possible, demonstrate each exercise with a run of the 
program from the Instructor’s disk. As each program is run, 
review the variable names recommended in the problem statement. 
Emphasize the importance of including all the subscripted 
variables in the swap. Stress the importance of using the 
suggested line numbers. 

LAB GUIDE 

Most of the problems in this lab exercise will be with the 
swap routine. The errors fall into two classifications. The 
first type of error is not swapping all the variables that must 
be swapped. Thus Jones ends up with Smith’s score, Adams ends up 
with Jones’ score, etc. The second type of error is an error in 
one of the lines in the swap routine. This could be the wrong 
variable name as a subscript such as N$(J) instead of N$(I), etc. 



CHAPTER 10 


THE BIG ONE 

Writing a Major Program 


OVERVIEW 

This chapter puts together the skills of the previous chap¬ 
ters to produce a major program. The chapter also introduces 
menus, error-trapping, and the creation and maintenance of disk 
files. Once again, students are encouraged to write and debug 
individual modules of the program using stubs (dummy subroutines) 
rather than trying to write the whole program at once. 

In writing this chapter the students develop a real feeling 
of confidence in their ability to write a complete "real-world" 
program that actually does something worthwhile. They also begin 
to realize the necessity of the structured programming techniques 
they are developing. They see that without a highly structured 
approach, this problem would take forever to complete. 
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OBJECTIVES 

The student should know: 

1. the advantages of a structured program. 

2. how to use a menu to structure a large program. 

3. the syntax of the statements to OPEN, READ, WRITE, and 
CLOSE a file. 

4. how to determine the file produced by a program that 
reads from a DATA statement and writes the data to a 
file. 

5. how to determine the results of a program that reads a 
file and prints something that was read from the file. 

6. the syntax and the function of the ON/GOSUB statement. 


LECTURE GUIDE 

I. Introductory Demonstration of Program 10 (5 minutes) 

An introductory demonstration run of Program 10 is a good 
way to begin the lecture on Chapter 10. The following is a 
suggested sequence of Menu choices. 

A. With the Main Menu on the screen, type a letter or a 
number other than the integers 1, 2, 3, 4, 5, or 6. 
Explain the concept of error trapping and how it is 
used to make the program more user friendly by elimi¬ 
nating the ?REDO FROM START error message when the user 
types a letter instead of a number. 

B. Choose option 1 and enter three names. Deliberately 
avoid entering the names in alphabetical order. Then 
point out that the names were sorted into alphabetical 
order before they were placed in the file. 

C. Choose option 2 and enter scores for the first match. 
Deliberately enter scores that will require sorting to 
arrange the list in descending order by score. 



D. Choose option 3 and enter a second set of scores. 

Again, make certain the list is not in descending order 
by total score. When the table appears on the screen, 
point out the week number (which should be 2) and the 
fact that the total score is the sum of the first and 
second scores. Explain that the total score is saved 
in a file on the disk so it can be updated from week to 
week in the same way that businesses record and update 
their records. 

E. Choose option 5 and point out that the table is now 
sorted so the total scores are in descending order. 
However, the file on the disk is still in alphabetical 
order. 

F. Choose option 2 to verify that the file on the disk is 
in alphabetical order. 

G. Choose option 4 and explain that this would be used at 
the beginning of the bowling season. 

New Concepts Used in Program 10 

A. The Menu (5 minutes) 

A menu is a method of allowing the user to select 
different branches in a program in a user friendly way. 
The authors would like to point out that the menu also 
results in a program that is easy to write, easy to 
read, and easy to modify. In short, it leads to a 
better structured program. 

The menu in program 10 is produced by lines 110 to 160. 
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B. Error Trapping (15 minutes) 

Error trapping is a method of responding to incorrect 
responses by the user of a program in a way that is 
user friendly. The error trapping in Program 10 is 
accomplished by lines 190 - 270 (listed below). 

190 REM GET USER’S CHOICE 

200 INPUT "ENTER THE NUMBER OF YOUR CHOICE"jC* 

210 LET C = VAL (C*> 

220 REM MAKE SURE CHOICE IS VALID 
230 PRINT : PRINT 

240 IF C > 0 AND C < 7 AND INT (C) = C THEN GOTO 280 
250 PRINT "I RESPOND ONLY TO INTEGERS FROM 1 TO 6“ 

260 FOR TIME = 1 TO 1000: NEXT TIME 
270 GOTO 100 

In line 200, the menu choice is entered as a string 
using the string variable C$. If a numeric variable 
name, such as C, were used and the user entered a 
letter instead of a number, the computer would respond 
with ?REDO FROM START. This is not a very user 
friendly response and using C* as the input variable 
prevents any occurrence of ?REDO FROM START. 

Line 210 uses the VAL function to convert the menu 
choice from a string to a number. If C$ is a number, 
then C will be equal to that number. If C* is a 
letter, or symbol such as + or =, then C will be equal 
to zero. 

Line 240 tests C and if C is an integer between 1 and 6 
then the program goes to line 280 and carries out the 
menu choice. If C is not an integer between 1 and 6 
then the program goes to line 250 to "trap the error." 

Line 250 prints the message I RESPOND ONLY TO INTEGERS 
FROM 1 TO 6. This gives the user an indication of what 
was wrong with their choice. 

L-ine 2S0 holds the I RESPOND ... message on the screen 
for a short time and then the program goes back to the 
beginning of the Menu Routine at line 100. 

C. The ON/GOSUB Statement (5 minutes) 

Use line 280 in Program 10 to explain how the ON/GOSUB 
statement implements the menu choice. 

280 ON C GOSUB 1100, 1200, 1300, 1400, 1500, 300 

Briefly examine each of the following modules to help 
explain how the menu choice is carried out. 
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D. Writing a Text File on a Disk (20 minutes) 

Use the following program to explain and demonstrate 
how to write a text file on a disk. 

110 LET N = 3 

120 DIM N*(N), A(N), BUM) 

130 FOR I = 1 TO N 

140 READ N*d), A(I), Bd) 

150 NEXT I 

160 DATA SMITH, 70, 74 
170 DATA JONES, 81, 79 
180 DATA MAKI, 86, 83 
190 : 

410 OPEN 3,8,3, ”00:SCORES,SEQ, WRITE" 

420 PRINT#3, N 
430 FOR I = 1 TO N 
440 PRINT*3,N«d) 

450 PRINT#3, Ad) 

460 PRINT#3,B(I) 

470 NEXT I 
480 CL0SE3 


Lines 110 to 190 in the above program simply read the 
data into the subscripted variables as listed below. 


N$U) 

= SMITH 

N$<2) 

= JONES 

N*(3> = MftKI 

A(l) 

= 70 

A<2) 

= 81 

ft (3) = 86 

B(l> 

= 74 

B (2) 

= 79 

B(3) = 83 


Lines 410 to 480 write a text file on the disk. 

Explain the command at line 410 that opens the file and 
gives the file a name and ID number. Point out the 
importance of closing the file on line 480. 

We have found it helpful to describe the ribbon of data 
that is sent from the computer to the disk drive during 
the write operation. The ribbon of data for lines 420 
to 470 would be as follows. 


3 SMITH 70 74 JONES 81 79 MAKI 86 83 
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Reading the Text File on a Disk (20 minutes) 

Use the following program to explain and demonstrate 
how to read a text file on a disk. 

510 OPEN 3,8,3, "SCORES, SEQ, READ" 

520 INPUT#3,N 
530 FOR I = 1 TO N 
540 INPUT#3,N*(I) 

550 INPUT#3, A(I) 

560 INPUT#3, B(I) 

570 NEXT I 
580 CL0SE3 
590 : 

610 PRINT : PRINT 

620 PRINT "TEXT FILE SCORES" 

630 PRINT N 

640 FOR I = 1 TO N 

650 PRINT N*(I) 

660 PRINT A(I) 

670 PRINT B(I) 

680 NEXT I 
690 END 


Explain lines 510 - 580 of the example program above. 
Point out that lines 520 to 570 must read the data from 
the file in exactly the same order as the operation 
that wrote the data into the file. 

Run the example program and point out the ribbon of 
data that is printed on the screen by 1ines 630 to 680. 

III. Exercise 10 (20 to 30 minutes) 

Explain the four step procedure for completion of lab 
BXfircisc 10 in the text. We allow two or three weeks for 
completion of lab exercise 10, so you may choose to spread 
the discussion over two or more class meetings. 
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LAB GUIDE 

This is an ambitious programming problem, but one that is 
well received by our students. Many students perceive this 
program as one that is useful or potentially useful to them. For 
this reason, student motivation is high in spite of the effort 
required to enter and debug the program. 

The most common problems involve the sort routine and the 
file routines. All three of these routines require careful 
attention to the subscripted variables used in the program. The 
problems with the sort routine usually involve incomplete swap¬ 
ping of all the subscripted variables. The problems with the 
file routines usually involve differences in the order in which 
the variables are written to the file and read from the file. 



CHAPTER 1 1 


FLYING SAUCERS 

Using Sound and Graphics 


OVERVIEW 

This chapter is intended to serve as a fun "reward” for 
students who have successfully completed chapter 10. Students 
often complain that we should have introduced graphics earlier in 
the book. We have learned the hard way that if this material is 
presented earlier, some students spend all their time designing 
and playing arcade games rather than completing the rest of the 
programming assignments. Most students enjoy doing this assign¬ 
ment and think of many clever enhancements for their programs. 

OBJECTIVES 

The student should knows 

1. how to determine the outcome of a program that plots 
graphic symbols on the screen. 

2. how to define the shape, color, location, and visibility 
of a sprite. 

3. how to produce simple sounds by using the Commodore 64 
sound chip. 
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LECTURE GUIDE 

I. Animation and Collision Detection <25 minutes) 

A. What is animation? 

Animation involves the movement of a sprite or sprites 
on the screen. 

B. How is animation accomplished? 

Each sprite has two memory locations that determine the 
horizontal and vertical position of the sprite. A 
sprite is moved by poking different decimal values into 
these two locations 

C. What is collision detection? 

Collision detection is the determination that two 
shapes have at least one point in common. 

Dm How is collision detection accomplished? 

The Commodore 64 has a collision register that we can 
use to detect if two sprites overlap at any point. If 
two sprites overlap, their assigned bits in the 
collision register will be a 1. If the sprites do not 
overlap, their assigned bits will be a 0. 

Examples When the missile reaches the top of the 
screen in Program 11A, we can check the contents of the 
collision register to detect whether or not the missile 
hit the target. The target (sprite 0) is assigned bit 
0 in the collision register and the missile (sprite 1) 
is assigned bit 1. If the missile hit the target, the 
collision register will contain the binary number 
00000011 which is equivalent to decimal 3. If a peek 
of the collision register shows a decimal 3, then we 
know the missile hit the target. 

II. Detecting a Keystroke without Stopping the RUN (10 minutes) 
A. Reading the Keyboard 

Location 197 in the Commodore 64 provides information 
about the keyboard. During the time that a key is 
pressed, location 197 contains the value of the pressed 
key. As soon as the key is released, the content of 
location 197 changes to 64. When no key is pressed, 
location 197 always contains the number 64. 
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B. Detecting a keystroke while animating a figure 

In Program 11A, we use the following IF statement to 
detect when a key is is pressed (representing the 
firing of a shot). 

440 IF PEEK 197 <> 64 THEN RETURN s REM SHOT FIRED 

As long as the conditional (PEEK 197) is false, no shot 
has been fired, and the program continues to move the 
target back and forth across the top of the screen. 

As soon and the conditional (PEEK 197) is true, a shot 
has been fired, and the program returns to begin moving 
the missile from the gun toward the top of the screen. 

III. Sprite Graphics (20 minutes) 

A. The Sprite Grid 

The shape of a sprite is defined on a grid which we 
will call the sprite grid. The sprite grid has 21 rows 
and 24 columns. On a 12 inch monitor, the sprite grid 
measures about 0.69 inches wide by 0.75 inches high. 
From another perspective, the sprite grid is about 3 
text lines high and about 3 text columns wide, measured 
on a standard 25 line by 40 column text screen. 

The sprite grid defines 504 rectangles used to define 
the shape of the sprite. On a 12 inch monitor, each 
rectangle is about 0.029 inches wide by about 0.036 
inches high. 

B. Positioning the Sprite 

A sprite is positioned by specifying the X and Y 
coordinates of the upper left rectangle on the sprite 
grid. The units of X and Y are equal to the width and 
heighth of one rectangle on the sprite grid. 

The X coordinate is measured from a vertical line 
located 24 spaces beyond the left edge of the screen. 
Thus the first column on the left side of the screen 
has an X coordinate of 24. The Y coordinate is 
measured down from a line 50 spaces above the top of 
the screen. Thus, the top row of the screen has a Y 
coordinate of 50. The coordinates (24,50) place the 
upper left rectangle of the sprite grid in the upper 
left corner of the screen. 
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The range of the X and Y coordinates is from 0 to 255. 


0 <= X <= 255 0 <= Y <= 255 


The Y coordinates extend above and below the screen 
such that the entire sprite (or expanded sprite) can be 
located above or below the screen- The X coordinate 
extends beyond the left edge of the screen, but only 
covers the left 75% of the screen. A normal sized 
sprite can be moved completely off the screen on the 
left, but it cannot be moved all the way to the right 
edge of the screen. ftlso, an expanded sprite cannot be 
moved completely off the screen on the left. With an X 
coordinate of 0, an expanded sprite will be half on and 
half off the screen. 


SOME USEFUL SPRITE GRID COORDINATES 
Coordinates Position of Row 1. Col 1 of Sprite Grid 
In the upper left corner of screen 


24, 50 
255, 249 

172, y 
x,139-140 


On the bottom line at the beginning of 
the TftB(29) position of the text 
screen -CTAE goes from 0 to 393- 

Centers the sprite grid horizontally 

Centers the sprite grid vertically 


Coordinates Visible Portion of the Sprite Grid 


x, 29 
x, 30 
x, 49 
x, 50 


•C The following assume x > 24 > 

None of the sprite grid is visible 
Only bottom row of grid is visible 
All except top row of grid is visible 
Entire sprite grid is visible 


■. ■ 

x, 229 
x, 230 
x, 249 
x f 250 


Entire sprite grid is visible 
All except bottom row of grid is visible 
Only top row of grid is visible 
None of the sprite grid is visible 


0,y 

i.y 

23, y 

24, y 
255, y 


•C The following assume 49 < v < 22B > 

None of the sprite grid is visible 
Only right column of grid is visible 
All but left column of grid is visible 
Entire sprite grid is visible 
Extreme right position of grid - entire 
grid is visible 



Sound (15 minutes) 


A. The Commodore 64 sound chip 

In Chapter ll f we have just scratched the surface of 
the capabilities of the The Commodore 64 sound chip. 
This powerful chip can produce three sounds at the same 
time (called voices). We can independently set the 
pitch and volume of each voice. We can also shape the 
waveform of each voice to simulate different musical 
instruments, etc. 

B. Producing the sound 

The Commodore 64 has an audio output jack that must be 
connected to the audio input of a tv set or stereo 
receiver to produce sounds with the sound chip. In 
Program IIP, sound is produced by the subroutine at 
lines 700—660 (provided the proper audio connection is 
made as described above). In this subroutine, we 
first set the volume and some wave-shapping parameters 
(attack/decay, sustain/release, and pulse rate). Then 
we have voice 1 alternately play a tone of medium pitch 
and a tone of a higher pitch. Each tone is played 
three times for a total of six tones. When the six 
tones are completed, we set the volume to O to turn the 
sound off. 



LAB GUIDE 


This is an open-ended lab in which students can use their 
imaginations to produce a variety of shapes and styles of 
animation. Some students will produce novel arcade games. 
Expect some challenging questions. Stress the modular 

programming techniques taught in earlier chapters, 
any GOTO used be strictly a local jump. 


Insist that 



PORT TWO: LISTINGS, SOLUTIONS TO THE EXERCISES 


10 LET G = 12 
20 LET E = G * 2 
30 LET S = G * 3 
40 PRINT E 
50 PRINT S 
60 END 

READY. 


5 0PEN4,4 

6 CMD4 

10 LET 6 = 12 
20 LET E = G * 2 
30 LET S * G * 3 
40 PRINT E 
50 PRINT S 
60 PRINT04,:CL0SE4 
70 END 

READY. 


1 PN$= "P-2 MP6" 

2 NA* = "ROBERT N. BATESON" 

3 DA* = “9/10/85" 

10 REM ===== VARIABLES ===== 

11 REM DIST = DISTANCE TRAVELLED 

12 REM GAL = GALLONS USED 

13 REM MPG = MILES PER BALLON 

40 REM ===== FUNCTIONS ===== 

41 REM FN A ROUNDS TO WHOLE NUMBER 

42 DEF FN A(X) = INT(1*X + .5) / 1 

43 REM FN B ROUNDS TO 1 DECIMAL PLACE 

44 DEF FN B(X) = INT(10*X + .5) / 10 

45 REM FN C ROUNDS TO 2 DECIMAL PLACES 

46 DEF FN C(X) = INT(100*X + .5) / 100 

47 REM FN D ROUNDS TO 3 DECIMAL PLACES 

48 DEF FN D(X) = INT(1000*X + .5) / 1000 

100 REM ===== MAIN PROGRAM ===== 

101 PRINT "<SC>" ! REM "SHIFT - CLR/HO>E" 

102 PRINT TAB(20 - (LEN <PN*> / 2)) PN* 
110 LET DIS = 200 

120 LET GAL = 33 

130 LET MPG = DIST / GAL 

140 LET MP6 = FN A(MPG) 

150 PRINT MPG; "MILES PER GALLON" 

160 END 


READY, 
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1 PN$ = “P-3.1 READ/DATA” 

2 NA* = "ROBERT N. BATESON" 

3 DA* = "9/10/85" 

10 rem ===== VARIABLES ===== 

11 REM E = NUMBER OF EBBS 

12 REM 6 = NUMBER OF GUESTS 

13 REM S = NUMBER OF SHRIMP 

40 REM ===== FUNCTIONS ===== 

41 REM FN A ROUNDS TO WHOLE NUMBER 

42 DEF FN A(X) = INT(1*X + .5) / 1 

43 REM FN B ROUNDS TO 1 DECIMAL PLACE 

44 DEF FN BIX) = INT(10*X + .5) / 10 

45 REM FN C ROUNDS TO 2 DECIMAL PLACES 

46 DEF FN CIX) = INT<1O0*X + .5) / 100 

47 REM FN D ROUNDS TO 3 DECIMAL PLACES 

48 DEF FN DIX) = INT(10O0*X + .5) / 1000 

100 REM ===== MAIN PROGRAM = ==== 

101 PRINT "<SC>" s REM "SHIFT - CLR/HOME" 

102 PRINT TAB(20 - (LEN (PN*> / 2)) PN* 
110 READ 6 

120 LET E ■ G * 1.25 
130 LET E = FN AIE) 

140 LET S * 6 * 1.33 
150 LET S = FN AIS) 

160 PRINT E; "EGGS" 

170 PRINT S; "SHRIMP" 

180 DATA 14 
1% END 


READY. 



85 


1 PN* = “P-3.2 INPUT" 

2 NA* = "ROBERT N. BATESON" 

3 DA* - "9/10/85" 

10 REM ===== VARIABLES ===== 

11 REM E = NUMBER OF E6SS 

12 REM 6 = NUMBER OF GUESTS 

13 REM S = NUMBER OF SHRIMP 

40 REM ===== FUNCTIONS = = === 

41 REM FN A ROUNDS TO WHOLE NUMBER 

42 DEF FN A(X) = INT(1*X + .5) / 1 

43 REM FN B ROUNDS TO 1 DECIMAL PLACE 

44 DEF FN B(X) = INT(10*X + .5) / 10 

45 REM FN C ROUNDS TO 2 DECIMAL PLACES 

46 DEF FN C(X) = INT(100*X + .5) / 100 

47 REM FN D ROUNDS TO 3 DECIMAL PLACES 

48 DEF FN D(X> = INT(1000*X + .5) / 1000 

100 REM ===== MAIN PROGRAM ===== 

101 PRINT "<SC>" s REM "SHIFT - CLR/HOME" 

102 PRINT TAB(20 - (LEN (PN*) / 2)) PN* 
110 PRINT "HOW MANY GUESTS"; 

120 INPUT 6 

130 LET E = 6 * 1.25 

140 LET E = FN A(E) 

150 LET S = G * 1.33 
160 LET S = FN A(S> 

170 PRINT E; "EGGS" 

180 PRINT S; "SHRIMP" 

190 END 


READY, 



66 


1 PN* = "P-3.3 ECHO PRINT" 

2 NA* = "ROBERT N. BATESON" 

3 DM = "9/10/85" 

10 REM ===== VARIABLES ===== 

11 REM E = NUMBER OF E66S 

12 REM G = NUMBER OF GUESTS 

13 REM S = NUMBER OF SHRIMP 

40 REM ===== FUNCTIONS ===== 

41 REM FN A ROUNDS TO WHOLE NUMBER 

42 DEF FN A(X) = INT(1*X + .5) / 1 

43 REM FN B ROUNDS TO 1 DECIMAL PLACE 

44 DEF FN B<X> = INT(10*X + .5) / 10 

45 REM FN C ROUNDS TO 2 DECIMAL PLACES 

46 DEF FN C(X) = INT<100*X ♦ .5) / 180 

47 REM FN D ROUNDS TO 3 DECIMAL PLACES 

48 DEF FN D(X) = INT<10OO*X + .5) / 1000 
50 0PEN4,4 

100 REM ===== MAIN PROGRAM ===== 

101 PRINT "<SC>" : REM "SHIFT - CLR/HOME" 

102 PRINT TAB(20 - (LEN (PN*> / 2)) PN* 

103 PRINT04,TAB(20 - (LEN <PN*)/2)) PN* 
110 PRINT "HOW MANY GUESTS"; 

120 INPUT G 

125 PRINT#4,G; "GUESTS" 

130 LET E = G * 1.25 
140 LET E = FN ACE) 

150 LET S = 6 * 1.33 
160 LET S = FN A(S) 

170 PRINT E; "E66S" 

175 PRINT#4 f E; "EGGS" 

180 PRINT S; "SHRIMP" 

185 PRINT«4 f S; "SHRIMP" 

189 PRINT#*, :CL0SE4 

190 END 

READY. 



1 PN$ = "P-4.1 READ LOOP*' 

2 NA$ = "ROBERT N. BATESON" 

3 DA$ = “9/11/85" 

10 REM ===== VARIABLES ===== 

11 REM C = LOOP COUNTER 

12 REM E = NUMBER OF E66S 

13 REM 6 = NUMBER OF 6UESTS 

14 REM N = NUMBER OF GUESTS 

15 REM S = NUMBER OF SHRIMP 

40 REM ===== FUNCTIONS ===== 

41 REM FN A ROUNDS TO WHOLE NUMBER 

42 DEF FN A(X) = INT(1*X + .5) / 1 

43 REM FN B ROUNDS TO 1 DECIMAL PLACE 

44 DEF FN B(X) = INT(18*X + .5) / 18 

45 REM FN C ROUNDS TO 2 DECIMAL PLACES 

46 DEF FN C(X> = INT(108*X + .5) / 180 

47 REM FN D ROUNDS TO 3 DECIMAL PLACES 

48 DEF FN D<X) = INT(1088*X + .5) / 1888 
108 REM ===== MAIN PROGRAM ==== = 

181 PRINT “<SC>“ : REM "SHIFT - CLR/HOME" 
102 PRINT TAB(28 - (LEN <PN*> / 2)) PN$ 
185 READ N 
106 LET C = 8 
110 READ S 

120 LET E = 6 • 1.25 
138 LET E = FN A(E) 

148 LET S = 6 * 1.33 
150 LET S = FN A(S) 

160 PRINT G“6UESTS -“;E"EGGS";S"SHRU«>" 

178 LET C = C + 1 

180 IF C < N THEN 110 

1% DATA 4,2,3,5,9 

200 END 


READY, 



6B 


1 PN* = "P-4.2 INPUT LOOP" 

2 NA* = "ROBERT N. BATESON" 

3 DA* = "9/11/85" 

10 REM ===== VARIABLES ===== 

11 REM C = LOOP COUNTER 

12 REM E = NUMBER OF E66S 

13 REM 6 = NUMBER OF GUESTS 

14 REM N = NUMBER OF GUESTS 

15 REM S = NUMBER OF SHRIMP 

40 REM ===== FUNCTIONS ===== 

41 REM FN A ROUNDS TO WHILE NUMBER 

42 DEF FN A(X) = INT(1*X + .5) / 1 

43 REM FN B ROUNDS TO 1 DECIMAL PLACE 

44 DEF FN BIX) = INT(10*X + .5) / 10 

45 REM FN C ROUNDS TO 2 DECIMAL PLACES 

46 DEF FN C(X) = INT(100*X + .5) / 100 

47 REM FN D ROUNDS TO 3 DECIMAL PLACES 

48 DEF FN D<X) = INK 1000* X + .5) / 1088 

100 REM ===== MAIN PROGRAM ===== 

101 PRINT "TSC>" s REM "SHIFT - CLR/HOME" 

102 PRINT TAB(20 - (LEN (PN*) / 2)) PN* 
IBS INPUT "HOW MANY PARTIES";N 

106 LET C = 0 

107 PRINT 

HO INPUT "HOW MANY GUESTS";G 
120 LET E = G * 1.25 
130 LET E = FN A(E) 

140 LET S = G © 1.33 
150 LET S = FN A(S) 

160 PRINT E"EGGS";S"SHRIMP" 

170 LET C = C + 1 
180 IF C ( N TTCN 110 
190 END 


READY, 





1 pn« = “P-5.1 KPS TABLE" 

2 NA* = "ROBERT N. BATESON" 

3 DA* ■ “9/11/85" 

10 REM ===== VARIABLES ===== 

11 REM C ■ LOOP COUNTER 

12 REM DIST = DISTANCE 

13 REM GAL = BALLONS 

14 REM MPG = MILES PER GALLON 
48 REM ===== FUNCTIONS ===== 

41 REM FN A ROUNDS TO (MOLE NUMBER 

42 DEF FN A(X) = INT(1*X + .5) / 1 

43 REM FN B ROUNDS TO 1 DECIMAL PLACE 

44 DEF FN B(X) = INT(10*X + .5) / 10 

45 REM FN C ROUNDS TO 2 DECIMAL PLACES 

46 DEF FN CIX) = INTI100*X + .5) / 100 

47 REM FN D ROUNDS TO 3 DECIMAL PLACES 

48 DEF FN DIX) = INTI1800*X + .5) / 1000 

100 REM ===== MAIN PROGRAM ===== 

101 PRINT "<SC>" : REM "SHIFT - CLR/HOME" 

102 PRINT TAB(20 - (LEN <PN*> / 2)) PN* 
110 PRINT : PRINT 

120 PRINT "MILES", “GALLONS", "MPG" 

130 PRINT 

140 FOR C = 1 TO 10 

150 READ DIST,SAL 

160 LET MPG = FN C(DIST/GAL) 

170 PRINT DIST,GAL,MPG 
180 NEXT C 
190 DATA 362, 18.4 
2O0 DATA 365, 18 
210 DATA 127, 8.2 
220 DATA 310, 17 
230 DATA 267, 12.3 
240 DATA 185, 9.8 
250 DATA 476, 22.9 
260 DATA 354, 11.5 
270 DATA 294, 14.6 
280 DATA 245, 12.6 
2% END 

READY. 




7® 


1 PN* = "P-5.2 SALES TAX" 

2 NA* = "ROBERT N. BATESON" 

3 DA* = “9/11/85“ 

10 REM ===== VARIABLES ===== 

11 REM PRICE = PRICE OF THE ITEM 

12 REM TAX = SALES TAX ON THE ITEM 

40 REM == = = = FUNCTIONS = ==== 

41 REM FN A ROUNDS TO WHOLE NUMBER 

42 DEF FN A(X) = INT(1*X + .5) /I 

43 REM FN B ROUNDS TO 1 DECIMAL PLACE 

44 DEF FN B(X) = INT(10«X + .5) / 10 

45 REM FN C ROUNDS TO 2 DECIMAL PLACES 

46 DEF FN C(X) = INT(100*X + .5) / 100 

47 REM FN D ROUNDS TO 3 DECIMAL PLACES 

48 DEF FN D(X) = INT(1000*X + .5) / 1000 
180 REM ===== MAIN PROGRAM ===== 

101 PRINT "<SC>“ s REM "SHIFT - CLR/HOME" 

102 PRINT TAB(20 - (LEN (PN*) / 2)) PN* 
110 PRINT : PRINT 

120 PRINT "PRICE", "SALES TAX" 

130 PRINT 

140 FOR PRICE = .01 TO 1.00 STEP .01 

150 LET TAX = 0.05 * PRICE 

160 PRINT FN C(PRICE), FN C(TAX) 

170 NEXT PRICE 
180 END 


READY, 



I PN$ = "P-5.3 ALTITUDE" 

£NW = "ROBERT N. BATESON" 

3 DA$ = "9/11/85" 

18 REM ===== VARIABLES ===== 

II REM FEET = ALTITUDE IN FEET 
12 REM MILES = ALTITUDE IN MILES 

40 REM ===== FUNCTIONS ===== 

41 REM FN A ROUNDS TO WHOLE NUMBER 

42 DEF FN A(X) = INT(1*X + .5) / 1 

43 REM FN B ROUNDS TO 1 DECIMAL PLACE 

44 DEF FN B(X) = INT(10*X + .5) / 10 

45 REM FN C ROUNDS TO 2 DECIMAL PLACES 

46 DEF FN C<X) = INT<100*X + .5) / 100 

47 REM FN D ROUNDS TO 3 DECIMAL PLACES 

48 DEF FN D<X) = INT<10O0*X + .5) / 1000 

100 REM ===== MAIN PROGRAM ===== 

101 PRINT "<SC>" s REM "SHIFT - CLR/HOME" 
IK PRINT TAB (20 - (LEN (PN$> / 2)) PN» 
110 PRINT : PRINT 

120 PRINT "ALTITUDE", "ALTITUDE" 

130 PRINT "IN FEET", "IN MILES" 

140 PRINT 

150 FOR FEET = 0 TO 50000 STEP 2000 
160 LET MILES = FEET / 5280 
170 PRINT FEET, FN C(MILES) 

180 NEXT FEET 
190 END 


READY, 



72 


1 PN* = "P-5.4 SQUARES” 

2 NA* = "ROBERT N. BATESON" 

3 DA* = "9/11/85" 

10 REM ===== VARIABLES — 

11 REN X = A MJMBER 

12 REM XROOT = THE SQUARE ROOT OF X 

13 REM XSQUARED = X SQUARED 

40 REM ===== FUNCTIONS ===== 

41 REM FN A ROUNDS TO WHOLE NUMBER 

42 DEF FN A(X) = INT(1*X + .5) / 1 

43 REM FN B ROUNDS TO 1 DECIMAL PLACE 

44 DEF FN B(X) = INT<10*X + .5) / 18 

45 REM FN C ROUNDS TO 2 DECIMAL PLACES 

46 DEF FN C(X) = INT(100*X + .5) / 188 

47 REN FN D ROUNDS TO 3 DECIMAL PLACES 

48 DEF FN D(X) = INT(1888»X + .5) / 1888 
188 REM ===== MAIN PROGRAM ===== 

181 PRINT "<SC>" s REM "SHIFT - CLR/HOME" 

182 PRINT TAB(28 - (LEN (PN*) / 2)) PN* 
118 PRINT : PRINT 

128 PRINT ,, “SQUARE" 

138 PRINT ,"X“, "ROOT- 

148 PRINT "X", "SQUARED", “OF X" 

158 FOR X = 1 TO 18 

160 LET XSQUARED = X • X 

170 LET XROOT = X - 0.5 

1B0 PRINT X, XSQUARED, FN C(XROOT) 

190 NEXT X 
208 END 


READY, 



1 pn* = “P-5.5 SAVINGS" 

2 NA* = "ROBERT N. BATESON” 

3 DA* = ”9/11/85" 

10 REM ===== VARIABLES ===== 

11 REM A = AMOUNT OF INVESTMENT 

12 REM I = YEARLY INTEREST RATE 

13 REM N = NUMBER OF YEARS 

14 REN P = ORIGINAL AMOUNT DEPOSITED 

40 REM ===== FUNCTIONS ===== 

41 REM FN A ROUNDS TO WHOLE NUMBER 

42 DEF FN A(X) = INTC1+X + .5) / 1 

43 REM FN B ROUNDS TO 1 DECIMAL PLACE 

44 DEF FN B(X> = INT(10*X + .5) / 10 

45 REM FN C ROUNDS TO 2 DECIMAL PLACES 

46 DEF FN C(X> = INT(100»X + .5) / 100 

47 REM FN D ROUNDS TO 3 DECIMAL PLACES 

48 DEF FN D(X) = INT(1080*X + . 5) / 1080 

100 REM ===== MAIN PROGRAM ===== 

101 PRINT "{SC>" : REM "SHIFT - CLR/HOME" 

102 PRINT TAB(20 - (LEN (PN*) / £>) ?N* 
110 PRINT : PRINT 

120 PRINT "YEAR","AMOUNT” 

130 PRINT 

140 LET P = 2008 

150 LET I = 14 

160 FOR N = 1 TO 20 

170 LET A = P * (1+1/100) A N 

180 PRINT N, FN C(A) 

190 NEXT N 
200 END 

READY. 








74 


1 PN$ = "P-5.6 ARK MFG" 

2 NA* = "ROBERT N. BATESON" 

3 DA* = "9/11/85" 

10 REM ===== VARIABLES ===== 

11 REM C = COST OF N 6IZM0S 

12 REM N = NUMBER OF 6IZM0S SOLD 

13 REN PROFIT = PROFIT FROM N 6IZM0S 

14 REM R = REVENUE FROM N GIZMOS 

40 REM ===== FUNCTIONS ===== 

41 REM FN A ROUNDS TO WHOLE NUMBER 

42 DEF FN A(X) = INT(1*X + .5) / 1 

43 REM FN B ROUNDS TO 1 DECIMAL PLACE 

44 DEF FN B(X) = INT(10*X + .5) / 10 

45 REM FN C ROUNDS TO 2 DECIMAL PLACES 

46 DEF FN C(X) = INT(100*X + .5) / 100 

47 REM FN D ROUNDS TO 3 DECIMAL PLACES 

48 DEF FN D(X) = INT(1000*X + .5) / 1000 

100 REM ===== MAIN PROGRAM ===== 

101 PRINT "<SC>" s REM "SHIFT - CLR/HOME" 

102 PRINT TAB(20 - (LEN <PN*> / 2)) PN* 
110 PRINT “# OF 6IZM0S", "PROFIT" 

120 FOR N = 5 TO 100 STEP 5 

130 LET R = 212 * N 

140 LET C = 1250 + 120*N + 0.75*N A 2 

150 LET PROFIT = R - C 

160 PRINT N, FN C(PROFIT) 

170 NEXT N 
180 END 


READY, 







1 PN* = "P-5.7 AVG/DIF" 

2 DM* = "ROBERT N. BATESON" 

3 DA* = "9/11/05" 

10 REM ===== VARIABLES ===== 

11 REM AVG = AVERA6E SCORE 

12 REM D = SCORE -AVERAGE SCORE 

13 REM N = LOOP COUNTER 

14 REM S = SCORES 

15 REM SUM = SUM OF SCORES 

40 REM ===== FUNCTIONS ===== 

41 REM FN A ROUNDS TO WHOLE NUMBER 

42 DEF FN A(X) = INT<1*X + .5) / 1 

43 REM FN B ROUNDS TO 1 DECIMAL PLACE 

44 DEF FN B(X> = INT(10*X + .5) / 1C 

45 REM FN C ROUNDS TO 2 DECIMAL PLACES 
40 DEF FN CtX) = INT(100*X + .5) / ICC 
47 REM FN D ROUNDS TO 3 DECIMAL PLACES 
40 DEF FN D(X) = INTU000+X + .5) / 1C0C 

100 REM ===== MAIN PROGRAM ===== 

101 PRINT "-CSO" s REM “SHIFT - CLR/HOME 

102 PRINT TAB<20 - (LEN (PN*) / 2)) PN* 
110 LET SIM = 0 

120 FOR N = 1 TO 10 
130 READ S 

140 LET SUM = SUM + S 
150 NEXT N 

100 LET AVG = FN CtSUM / 10) 

170 PRINT 

100 PRINT "THE AVERAGE VALUE IS"; AVG 
190 PRINT : PRINT 
200 RESTORE 

210 PRINT "SCORE", “SCORE - AVERAGE" 

220 PRINT 

230 FOR N = 1 TO 10 

240 READ S 

250 LET D = FN C(S - AVG) 

200 PRINT S,D 
270 NEXT N 

200 DATA 10.47,11.00,13.30,14.30,11.45 
290 DATA 12.04,14.02,15.20,12.66,17.04 
300 END 

READY. 



76 


1 PN* = “P-6.1 PRICE" 

2 NA* = “ROBERT N. BATESON* 

3 DA* * “9/11/85“ 

10 REM ===== VARIABLES ===== 

11 REM P = RETAIL PRICE OF ITEM 

12 REM U = WHOLESALE COST OF ITEM 
40 REM ===== FUNCTIONS ===== 

45 REM FN C ROUNDS TO 2 DECIMAL PLACES 

46 DEF FN C(X) = INT(100*X + .5> / 100 
1(» REM ===== MAIN PROGRAM ===== 

101 PRINT "TSC>" s REM "SHIFT - CLR/HOME" 

102 PRINT TAB(20 - (LEN (PN*> / 2)) PN* 
110 PRINT : PRINT 

120 INPUT"WHAT IS TIC WHOLESALE COST";W 
130 IF U < 100 THEN P = 0.2«U + W 

140 IF W >= 100 THEN P=20+0.3*(W-100)+W 
150 LET P = FN C(P) 

160 PRINT “THE RETAIL PRICE IS *“ 5 P 
170 END 

READY. 


1 PN* = "P-6.2 COMMISSION" 

2 NA* = "ROBERT N. BATESON* 

3 DA* = “9/11/85" 

10 REM ===== VARIABLES ===== 

11 REM C = COMMISSION 

12 REM S = SALES 

40 REM ===== FUNCTIONS ===== 

45 REM FN C ROUNDS TO 2 DECIMAL PLACES 

46 DEF FN C(X) = INT(100*X + .5) / 100 
1IM REM ===== MAIN PROGRAM ===== 

101 PRINT "<SC>" : REM “SWIFT - CLR/HOME" 

102 PRINT TAB(20 - (LEN (PN*) / 2)) PN* 

110 PRINT s PRINT 

120 INPUT"WHAT IS YOUR WEEKLY SALES";S 
130 IF S (= 5000 THEN C = 0.083 • S 

140 IF S > 50O0 THEN C = 0.083 • 5080 + 0.035 • (S-5000) 
150 LET C = FN C(C) 

160 PRINT “YOUR COMMISSIION IS *";C 
170 END 


READY, 





1 PN* = “P-6.3 ERODES“ 

2 NO* = "ROBERT N. BATESON" 

3 DA* = "9/11/85“ 

10 REN ===== VARIABLES ===== 

11 REN AV6 = OVERAGE SCORE 

12 REM G* = LETTER GRADE 

13 REN SI = EXON 1 SCORE 

14 REM S2 = EXON 2 SCORE 

15 REN S3 = EXON 3 SCORE 

40 ran ===== FUNCTIONS ===== 

43 REN FN B ROUNDS TO 1 DECIMAL PLACE 

44 DEF FN BIX) = INT(10*X + .5) / 10 

100 REN ===== NOIN PROGRON ===== 

101 PRINT "<SC>" : REM "SHIFT - CLR/HONE" 

102 PRINT TAB(20 - (LEN (PN*) / 2)) PN* 
110 PRINT : PRINT 

120 PRINT"ENTER YOUR THREE EXON SCORES" 

130 INPUT Sl t S2, S3 

140 LET OVG = (S1+S2+S3)/3 

150 LET AV6 = FN B(AVG) 

160 IF 95(=AV6 THEN 6* = "A" 

170 IF 85<=0V6 AND OVG<95 THEN 6* = "B" 

180 IF 70<=OVG AND AV6(85 THEN 6* = "C" 

190 IF 60<=OVG AND AV6<70 THEN 6* = "D" 

200 IF OVG(60 THEN 6* = "F" 

210 PRINT "YOUR AVERAGE SCORE IS";OVG 
220 PRINT "YOUR LETTER GRADE IS ";G* 

230 END 


READY, 



78 


I PN$ a "P-6.4 ACCOUNT” 

£ NO* = “ROBERT N. BATESON” 

3 DA* = “9/11/85" 

10 REM ===== VARIABLES ===== 

II REM A = AMOUNT IN ACCOUNT 

12 REM D = MONTM.Y DEPOSIT 

13 REM I = MONTHLY INTEREST 

14 REM M = NUMBER OF MONTHS 

15 REM R = YEARLY INTEREST RATE 

16 REM Y = NUMBER OF YEARS 

17 LET A = O 

18 LET R = 12 

19 LET D = 108 

40 REM ===== FUNCTIONS ===== 

45 REM FN C ROUNDS TO 2 DECIMAL PLACES 

46 DEF FN C(X) = INT<1@®»X + .5) / 100 

100 REM ===== MAIN PROGRAM ===== 

101 PRINT “-CSC}" s "SHIFT - CLR/HOME" 

102 PRINT TAB<20 - (LEW (PN®> / 2)) PN4 
110 PRINT 

120 FOR Y = 1 TO 5 

130 PRINT "YEAR-MONTH BALANCE ON LAST DAY" 

140 PRINT "- -” 

150 FOR M = 1 TO 12 

160 IF M <> 1 THEN A = A + D 

170 LET I = A*R/100/12 

180 LET A = A + I 

190 LET A = FN CIA) 

200 PRINT Y; 

201 IF M < 10 THEN PRINT 

202 IF M > 9 THEN PRINT "-"j 

203 PRINT M,,A 
210 NEXT M 
220 PRINT 

222 IF Y = 5 THEN PRINT ” TIC ACCOUNT BALANCE IS A 

223 IF Y = 5 THEN PRINT " ON JANUARY 1 FIVE YEARS LATER." 

224 PRINT 

228 INPUT "PRESS RETURN TO CONTINUE";C* 

227 PRINT “{SC>" : REM "SHIFT - CLR/HOME" 

230 NEXT Y 
240 PRINT 
260 END 

READY. 



1 PN$ = "P-6.5 SALARY" 

2 NA* = "ROBERT N. BATESON" 

3 DA* = “9/11/85“ 

10 REN ===== VARIABLES ===== 

11 REN S = SALARY 

12 REN W = NUMBER OF THE WEEK 

100 REM ===== MAIN PROGRAM ===== 

101 PRINT "<SC>“ : REN “SHIFT - CLR/HOME" 

102 PRINT TAB(20 - (LEN <PN*> / 2)) PN* 

110 PRINT 

120 PRINT "WEEK", "SALARY" 

130 LET S = 0.025 
140 LET U = O 
150 LET W = W + 1 
160 LET S = 2 * S 
170 PRINT U,S 

180 IF S < 1000 THEN SOTO ISO 
190 PRINT 

200 PRINT “T»« YOUNG WOMAN’S SALARY WILL BE" 
210 PRINT "$"S; "DURING MEEK NUMBER" 5 W 5 "." 
220 END 


READY, 



80 


1 PN* * "P-6.6 ELECTRIC" 

2 NA* ■ "ROBERT N. BATESON" 

3 DA* = "9/11/85" 

10 REM ===== VARIABLES ===== 

11 REM C = COST OF ELECTRICITY 

12 REM K = KILOWATT-HOURS USED 

13 REM K1 = PREVIOUS METER READINS 

14 REM K2 = PRESENT METER READING 

15 REM M ■ NUMBER OF TIC MONTH 
40 REM ===== FUNCTIONS ==» 

45 REN FN C ROUNDS TO 2 DECIMAL PLACES 

46 DEF FN C(X) = INT<100*X + .5) / 100 

100 REM ===== MAIN PROGRAM ===== 

101 PRINT "<SC>" : REM "SHIFT - CLR/HOME* 

102 PRINT TAB(20 - (LEN IPN*> / 2)) PN* 

110 PRINT : PRINT 

120 INPUT "TIC NUMBER OF TIC MONTH IS";N 
130 INPUT "THE PREVIOUS KWHR READING IS";K1 
140 INPUT "THE PRESENT RUHR READING IS"$K2 
150 LET K = K2 - K1 
160 PRINT 

170 IF M >= 6 AND M (=9 THEN C = 2.50 ♦ 0.0454*K s GOTO 210 
180 IF K <= 500 THEN C = 2.50+0.0454*K: SOTO 210 

190 IF K <» 1000 THEN C = 2.50 + 0.0454*500 + 0.0406*<K-500) I GOTO 210 
200 LET C = 2.50 + 0.0454*500 + 0.0406*500 + 0.0308*(K-1000) 

210 LET C = FN C(C) 

220 PRINT "THE KWHR ICED IS";K 

230 PRINT "YOUR ELECTRIC BILL IS *"|C 

240 END 

READY. 



1 PN*= “P-7.1 WOOD SHED" 

2 NA* = “ROBERT N. BATESON" 

3 DA* = “9/11/85“ 

10 REM ===== VARIABLES ===== 

11 REM C* = CHARACTER USED IN PATTERN 

12 REM C = NUMBER OF CHARACTERS PRINTED 

13 REM I = LOOP COUNTER FOR NUMBER OF 

14 REM LINE = LOOP COUNTER FOR NUMBER OF 

15 REM S = NUMBER OF SPACES 

40 REM ===== FUNCTIONS ===== 

41 REM FN A ROUNDS TO WHOLE NUMBER 

42 DEF FN A(X) = INT(1*X + .5) / 1 

43 REM FN B ROUNDS TO 1 DECIMAL PLACE 

44 DEF FN B(X) = INT(10*X + .5) / 10 

45 REM FN C ROUNDS TO 2 DECIMAL PLACES 

46 DEF FN C(X> = INT<100*X + .5) / 100 

47 REM FN D ROUNDS TO 3 DECIMAL PLACES 

48 DEF FN D(X) = INT(1080*X + .5) / 1000 

100 REM ===== MAIN PROGRAM === = = 

101 PRINT "<SC>" : REM "SHIFT - CLR/HOME" 

102 PRINT TAB(20 - (LEN (PN*> / 2)) PN* 

110 PRINT 

120 INPUT “CHARACTER TO BE USED IN THE PATTERN"; C* 
130 REM ===== PRINT THE PATTERN ===== 

140 REM LINE = 1 

150 GOSUB 500 : GOSUB 600 : PRINT 
160 FOR LINE = 2 TO 8 

170 GOSUB 500 : GOSUB 600 t GOSUB 500 : GOSUB 600 

180 NEXT LIKE 
190 REM LINE = 9 

200 FOR M = 1 TO 3 i GOSUB 500 : GOSUB 600 s NEXT M : 
210 FOR LIKE = 10 TO 15 

220 FOR M = 1 TO 4 s GOSUB 500 : GOSUB 600 : NEXT M : 
230 NEXT LIKE 
240 REM LIKE = 16 

250 GOSUB 500 3 GOSUB 600 : GOSUB 500 3 
260 PRINT 3 PRINT TAB(14) "OLD WOOD SHED" 

270 END 


AT ONE 
SPACES 
LIKES 


TIKE 

OR CHARACTERS 


s PRINT 

PRINT 

PRINT 


GOSUB 600 3 PRINT 




300 REM ===== DATA SECTION ===== 

301 DATA 19,1 

302 DATA 18,1,1,1 

303 DATA 17,1,3,1 

304 DATA 16,1,5,1 

305 DATA 15,1,7,1 

306 DATA 14,1,9,1 

307 DATA 13,1,11,1 

308 DATA 12,2,11,2 

309 DATA 13,1,3,5,3,1 

310 DATA 13,1,3,1,3,1,3,1 

311 DATA 13,1,3,1,3,1,3,1 

312 DATA 13,1,3,1,3,1,3,1 

313 DATA 13,1,3,1,3,1,3,1 

314 DATA 13,1,3,1,3,1,3,1 

315 DATA 13,1,3,1,3,1,3,1 

316 DATA 13,5,3,5 
320 : 

399 END : REN = END OF MAIN PROGRAM = 

500 REM= SUBROUTINE TO PRINT SPACES *» 

510 READ S 

520 FOR I = 1 TO S 

530 PRINT ■ “j 

548 NEXT I 

550 RETURN 

560 : 

60O REM == SUBROUTINE PRINT CHARACTERS « 

610 READ C 

620 FOR I o 1 TO C 

630 PRINT C*; 

640 NEXT I 
650 RETURN 
660 : 


READY, 



1 PN$ = a P-7.2 MR GRAPH" 

2 NA* = "ROBERT N. BATESON" 

3 DA* * "9/11/85“ 

10 REM —— VARIABLES ===== 

11 REN I = LOOP COUNTER 

12 REM NAME* = NAME OF SALESPERSON 

13 REM SALES = SALES OF SALESPERSON 

99 : 

100 rem ===== MAIN PROGRAM ===== 

181 PRINT "<SC>" s REM "SHIFT - CLR/HONE" 
102 PRINT TAB(20 - (LEN (PN*) / 2)) PN* 
110 PRINT : PRINT 

120 PRINT "NAME"," NUMBER OF SALES" 

130 PRINT "- 

140 READ NWC* 

150 IF NAME* = "9999" THEN END 

160 READ SALES 

170 PRINT NAME*,"!’j 

180 FOR I = 1 TO SALESiPRINT "=";sNEXTI 
190 PRINT 
200 SOTO 140 
210 END 

300 REM ===== DATA STATEMENTS ===== 

301 DATA JONES, 21 

302 DATA GUIST, 18 

303 DATA SILVERMAN, 13 

304 DATA NAKELA, 17 

305 DATA 9999 


READY. 
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1 PN*= "P-7.3 DATA/GRAPH" 

2 NA* = “ROBERT N. BATESON* 

3 DO* = "9/11/85" 

10 REM ===== VARIABLES ===== 

11 REM C$ = CHARACTER USED IN PATTERN 

12 REM I = LOOP COUNTER 

13 REM N = NUMBER READ FROM DATA 

99 s 

100 REM ===== MAIN PROGRAM ===== 

101 PRINT "<SC>" : REM "SHIFT - CLR/HOME* 

102 PRINT TAB(20 - (LEN (PN*> / 2)) PN* 

110 PRINT 

120 INPUT "CHARACTER TO BE USED IN THE PATTERN"; C* 
130 (SAD N 

140 IF N = 9999 THEN END 

150 IF N < 0 THEN BOSUB 5O0: REM PRINT SPACES 
180 IF N > O THEN 60SUB 600: REN PRINT CHARACTERS 
170 IF N = 0 THEN PRINT : ISM BEGIN NEW LINE 
180 GOTO 130 
190 END 
200 : 

300 REM ===== DATA SECTION ===== 

301 DATA -19,1,0 

302 DATA -18,1,-1,1,0 

303 DATA -17,1,-3,1,0 

304 DATA -16,1,-5,1,0 

305 DATA -15,1,-7,1,0 

306 DATA -14,11,0 

307 DATA -19,1,0 

308 DATA -17,5,0 

309 DATA 9999 

399 END : REM = END OF MAIN PROGRAM = 

500 REM== SUBROUTINE TO PRINT SPACES = 

510 FOR I = 1 TO -N 
520 PRINT " "; 

530 NEXT I 
540 RETURN 
550 : 

600 REM = SUBROUTINE PRINT CHARACTERS = 

610 FOR I = 1 TO N 
620 PRINT C«; 

630 NEXT I 
640 RETURN 
650 : 


READY. 
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1 PN* = "P-8.1 SQUARES" 

2 NA* = "ROBERT N. BATESON" 

3 DA* = "9/11/85" 

10 REM ===== VARIABLES ===== 

11 REM X = NUMBER 

12 REM XCUBED = X CUBED 

13 REM XSQUARED = X SQUARED 

14 REM XRQOT = SQUARE ROOT OF X 
48 REM ===== FUNCTIONS ===== 

47 REM FN D ROUNDS TO 3 DECIMAL PLACES 

48 DEF FN D(X) = INT(1088*X + .5) / 1080 

100 REM ===== MAIN PROGRAM ===== 

101 PRINT "<SC>" s REM "SHIFT - CLR/HOME" 

102 PRINT TAB(20 - (LEN (PN*) / 2)) PN* 

110 PRINT : PRINT 

120 PRINT" X"; TAB(11)"X^"5 TAB(21)"X A 3“; TAB(31>"X*Q.S” 

130 PRINT "-■ 

140 FOR X = 1 TO 10 
150 LET XSQUARED = X«X 
160 LET XCUBED = X*X*X 
170 LET XROOT = FN D(X A 0.5) 

180 PRINT X; TAB(10)XSQUARED; TAB(20)XCURED; TAB(30)XROOT 
190 HEXT X 
200 END 


READY, 
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1 PN* = "P-8.2 ALTITUDE" 

2 NA* = "ROBERT N. BATESON" 

3 DA* = “9/11/85" 

10 REM ===== VARIABLES ===== 

11 REM FEET = ALTITUDE IN FEET 

12 REM METERS = ALTITUDE IN METERS 

13 REM MILES = ALTITUDE IN MILES 

14 REM PRESSURE = RELATIVE PRESSURE 
40 REM ===== FUNCTIONS = ==== 

45 REM FN C ROUNDS TO 2 DECIMAL PLACES 

46 DEF FN C(X) = INT(100*X + .5) / 100 

100 REM ===== MAIN PROSRAM ===== 

101 PRINT "ISC}" : REM "SHIFT - CLR/HOME" 

102 PRINT TAB(20 - (LEN (PN*) / 2)) PN* 

110 PRINT : PRINT 

120 PRINT “ ALT ITUD E"; TAB(11);"ALTITUDE"; TAB(21)"ALTITUDE"; TAB(31)"RELATIVE" 
130 PRINT " IN FEET"; TAB(ll);“IN MILES"; TAB(21)"IN METERS"; TAB(31)"PRESSURE- 

140 PRINT "-- 

150 FOR FEET = 0 TO 50000 STEP 1000 
160 LET MILES = FN C(FEET/5280) 

170 LET METERS = FN C(FEET/3.281) 

180 LET PRESSURE = 0.0002984 * (FEET/1000) A 2 - 0.03262*(FEET/1000) + 1 
190 LET PRESSURE = FN C(PRESSURE) 

200 PRINT FEET; TAB(10)MILES; 

210 PRINT TAB(20)METERS; TAB(30)PRESSURE 
220 NEXT FEET 
230 END 


READY. 
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1 PN* = "P-8.3 MORTGAGE" 

2 NO* = "ROBERT N. BATESON" 

3 DA* = "9/11/85" 

18 REM ===== VARIABLES ===== 

11 REM B = LOAN BALANCE 

12 REM I = INTEREST PAYMENT 

13 REM M = MONTH NUMBER 

14 REM MP = MONTHLY PAYMENT 

15 REM P = PRINCIPAL PAYMENT 

16 REM Y = YEAR NUMBER 

48 REM ===== FUNCTIONS ===== 

45 REM FN C ROUNDS TO 2 DECIMAL PLACES 

46 DEF FN C(X> = INT(188*X + .5) / 188 
188 REM ===== MAIN PROGRAM ===== 

181 PRINT ”{SC>" : REM "SHIFT - CLR/HOME” 

182 PRINT TAB<28 - (LEN (PN*) / 2>) PN* 

118 PRINT : PRINT 

128 INPUT "WHAT IS THE AMOUNT OF THE LOAN"} B 
138 INPUT "WHAT IS THE MONTHLY PAYMENT"; MP 
148 PRINT "{SO" : REM "SHIFT - CLR/HOME" 

158 FOR Y = 1 TO 5 

168 PRINT "YEAR-MONTH"; TAB(11)"INTEREST"; TAB(28)"PRINCIPAL"} TAB(38)"BALANCE” 
178 PRINT 

188 FOR M = 1 TO 12 

198 LET I = FN C(B * 8.15 / 12) 

288 LET P = FN C(NP - I) 

218 LET B = FN C(B - P) 

228 PRINT Y; 

238 IF M ( 18 THEN PRINT ■- "; 

248 IF M ) 9 THEN PRINT "-"? 

258 PRINT M;TAB(18)I;TAB(19)P;TAB(29)B 
268 NEXT M 
278 PRINT 

288 INPUT "PRESS RETURN TO CONTINUE";C* 

298 PRINT "{SC}" : REM "SHIFT - CLR/HOME" 

388 NEXT Y 
318 PRINT 
328 END 


READY, 




aa 


1 PN* = "P—8.4 DICE" 

2 NO* = "ROBERT N. BATESON" 

3 DA* = "9/11/85" 

10 REN ===== VARIABLES ===== 

11 REM D1 = FIRST DIE 

12 REM D2 = SECOND DIE 

13 REN D3 = THIRD DIE 

14 REN I = LOOP COUNTER 

15 REN T = TOTAL OF DICE 
99 : 

1*0 REN ===== MAIN PR06RAM ===== 

101 PRINT "<SC>" : REN "SHIFT - CLR/HOME" 

102 PRINT TAB(20 - (LEN <PN*> / 2)) PN* 

110 PRINT : PRINT 

120 PRINT "DIE #1"; TAB(10)“DIE #2"j TAB(20)"DIE #3"; TAB(30)"TOTAL" 

130 PRINT "-- - -- 

140 FOR I = 1 TO 10 

150 LET LL = 1: LET UL = 6: GOSUB 300 
160 LET D1 = N 

170 LET LL = 1* LET UL = 6s GOSUB 300 
180 LET D2 = N 

190 LET LL = 1: LET UL = 6: GOSUB 300 

200 LET D3 = N 

210 LET T = D1 + D2 + D3 

220 PRINT Dl; TAB(10)D2; TAB(20)D3; 

230 PRINT TAB(30)T 
240 NEXT I 
250 END 
260 : 

300 REM == PICK A RANDOM NUMBER == 

310 LET N = INT<(UL+1-LL)*RND(1)) + LL 
320 RETURN 


READY. 
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1 pn$ = "P-8.5 DRAM CARDS 0 

2 NA* = "ROBERT N. BATESON" 

3 DA* = “9/12-85" 

10 REM ===== VARIABLES ===== 

11 REM C = CARD NUMBER 

12 REM C* = CARD NAME 

13 REM Cl* = NAME OF 1ST CARD 

14 REM C2* = NAME CMP 2ND CARD 

15 REM C3* = NAME OF 3RD CARD 

16 REM LL = LOWER LIMIT OF RANDOM NUMBER 

17 REM N = NUMBER 

18 REM S = SUIT NUMBER 

19 REM S* = SUIT NAME 

28 REM SI* = SUIT OF 1ST CARD 

21 REM S2* = SUIT OF 2ND CARD 

22 REM S3* = SUIT OF 3RD CARD 

23 REM UL = UPPER LIMIT OF RANDOM NUMBER 
99 s 

108 REM ===== MAIN PROGRAM ===== 

181 PRINT "<SC>" s REM "SHIFT - CLR/HOME" 

102 PRINT TAB(28 - (LEN <PN*> / 2)) PN* 

118 PRINT : PRINT 

128 GOSUB 588 : REM DRAM 1ST CARD 

138 LET SI* = S* 

148 LET Cl* = C* 

150 GOSUB 500 : REM DRAW 2ND CARD 

168 IF SI* = S* AND Cl* = C* GOTO 158 
178 LET S2* = S* 

188 LET C2* = C* 

198 GOSUB 500 : REM DRAW 3ND CARD 

280 IF Si* = S* AND Cl* = C* GOTO 198 
210 IF S2* = S* AND C2* = C* GOTO 198 
228 LET S3* = S* 

230 LET C3* = C* 

248 PRINT 

258 PRINT "CARD #"; TAB(10)"OKE"5 TAB(20)"TWO"$ TAB(38)"THREE" 

268 PRINT "-" 

270 PRINT TAB(18)C1*{ TAB(28)C2*{ TAB(38)C3* 

288 PRINT TAB(10) "OF" jTAB(28) "W"; TAB (30) “OF" 

298 PRINT TAB(10)S1*; TAB(20)S2*{ TAB(30)S3* 

308 END 
399 : 
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500 REM === == = == DRAW A CARD ===== 

510 LET LL = 1 : LET UL = 4 

520 GOSUB 700 : REM BET SUIT MJMBER 

530 LET S = N 

540 LET LL = 1 s LET UL = 13 

550 605UB 700 : REM GET CARD NUMBER 

560 LET C « N 

570 GOSUB 800 : REM BET SUIT NAME 
580 GOSUB 980 a REM BET CARD NAME 
590 RETURN 
599 END 

700 REM == PICK A RANDOM NUMBER = 
710 LET N = INT<(UL+1-LL)*RND(1)) + LL 
720 RETURN 

799 s 

800 REM = BET SUIT NAME == 

810 IF S = 1 THEN S* = "DIAMONDS’ 

820 IF S = 2 THEN S* = "CLUBS" 

830 IF S * 3 THEN S« = "HEARTS" 

840 IF S ■ 4 THEN S* = "SPADES” 

850 RETURN 

899 : 

900 REM = GET CARD NAME = 

901 IF C = 1 THEN C* = "ACE" 

982 IF C = 2 THEN C*= "TWO- 

903 IF C * 3 THEN C*= "THREE" 

904 IF C = 4 THEN C«= "FOUR" 

905 IF C = 5 THEN C*= "FIVE- 

906 IF C = 6 THEN C*» "SIX" 

907 IF C = 7 THEN C*= "SEVEN" 

908 IF C = 8 THEN C*= "EIGHT" 

909 IF C = 9 THEN C*= "NIME" 

910 IF C - 10 THEN C*= "TEN- 

911 IF C - 11 THEN C*= "JACK- 

912 IF C = 12 THEN C*= “QUEEN- 

913 IF C = 13 THEN C$= "KING" 

920 RETURN 

999 a 

READY. 



1 pn$ = "P-8.6 PLACE CARD” 

2 NA* = "ROBERT N. BATESON" 

3 DA* = “9/12/85" 

5 0PEN4,4 

6 CMD4 

18 REM ===== VARIABLES ===== 

11 REM I = LOOP COUNTER 

12 REM J = LOOP COUNTER 

13 REM L = LENGTH OF NAME 

14 REM N = NUMBER OF SPACES 

15 REM NAME* = FULL NAME 

16 REM LF* = FIRST NAME 

17 REM RT* = LAST NAME 

99 : 

100 REM ===== MAIN PROGRAM ===== 

101 PRINT "<SC>" s REM "SHIFT - CLR/HOME" 

102 PRINT TAB(20 - (LEN <PN*) / 2)) PN* 

110 READ NAME* 

120 IF NAME* = "EOF” THEN PRINT04, : CL0SE4 : END 
130 LET L = LEN(NAME*) 

140 GOSUB 680: REM REMOVE COPMA 
150 GOSUB 400: REM SPLIT NAMES 
160 LET NAME* = RT* + " “ + LF* 

170 GOSUB 800: REM PRINT PLACE CARD 
180 GOTO 110 
1 % : 

300 REM === DATA SECTION = 

301 DATA “JOHNSON, SUE" 

302 DATA "GREEN, BILL" 

303 DATA “ANDERSON, JON" 

304 DATA "EOF" 

390 : 

400 REM == SPLIT THE NAPES » 

410 GOSUB 500 : REM FIND SPACE (I IS TIE LOCATION OF TIE SPACE) 
420 LET LF*= LEFT*(NAPE*, 1-1) : REM LAST NAME 

430 LET RT*= RIGHT*(NAME*, L-I) : REM FIRST NAME 

440 RETURN 
450 : 

500 REM === FIND THE SPACE —= 

510 FOR I = 1 TO L 

520 IF MID*(NAME*,I,1) = " " THEN RETURN 
530 NEXT I 

540 PRINT "NO SPACE IN THIS NAME" : STOP 
550 : 

600 REM ===== REMOVE THE COMMA ===== 

610 GOSUB 700: REM FIND COMMA (I IS LOCATION OF COMMA) 

620 LET LF* = LEFT*(NAPE*, I—1): REM LAST NAPE 
630 LET RT* = RIGHT*(NAME*, L-I): REM FIRST NAME 
640 LET NAME* = LF* + RT* 

650 LET L = LEN(NAME*) 

660 RETURN 
670 : 
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700 REM ===== FIND THE COMMA ===== 

710 FOR I = 1 TO L 

720 IF MID*(NAME*,1,1) = ", M THEN RETURN 
730 NEXT I 

740 PRINT "M3 COMMA IN THIS NAME": STOP 
600 REM ===== PRINT A CARD ===== 

610 PRINT 

620 GOSUB 1000: REM PRINT TCP BORDER 

630 FOR J = 1 TO 7: GOSUB 1100: NEXT J: REM PRINT SIDE BORDER 
640 GOSUB 1000: REM PRINT CENTER BORDER 

850 FOR J = 1 TO 3: 60SUB 1100: NEXT J: REM PRINT SIDE BORDER 
860 GOSUB 1200: REM PRINT NAME 

870 FOR J = 1 TO 3: GOSUB 1100: NEXT J: REM PRINT SIDE BORDER 
860 GOSUB 1000: REM PRINT BOTTOM BORDER 
890 RETURN 
699 : 

1000 REM ===== PRINT TOP/CENTER/BOTTOM BORDER ===== 

1010 FOR I = 1 TO 60: PRINT ,, *";:NEXT I 
1020 PRINT 
1030 RETURN 
1040 : 

1100 REM ===== PRINT SIDE BORDER ===== 

1110 PRINT 

1120 FOR I = 2 TO 59: PRINT “ HOT I 
1130 PRINT “*° 

1140 RETURN 
1150 : 

1200 REM ===== PRINT NAME ===== 

1210 PRINT 

1220 LET N = INT(<58-L)/2) 

1230 FOR I = 1 TO N: PRINT " KEXT I 
1240 PRINT NAME*; 

1250 FOR I = 1 TO 58-N-L : PRINT " ■; : NEXT I 
1260 PRINT 
1270 RETURN 
1280 : 

READY. 






1 p,M$ = "P-B.7 PLACE CARD" 

2 NA* = "ROBERT N. BATESON" 

3 DA* = "9/13/05“ 

5 QPEN4,4 

6 CMD4 

10 REN ===== VARIABLES ===== 

11 REM I = LOOP COUNTER 

12 REM J = LOOP COUNTER 

13 REM L = LENGTH OF NAME 

14 REM N = NUMBER OF SPACES 

15 REM NAME* = FULL NAIE 

16 REM LF* = FIRST NAME 

17 REM RT* = LAST NAME 

18 REM MD* = FIRST NAME 

19 REM Cl = FIRST CHARACTER OF SUBSTRING 

20 REM C2 = LAST CHARACTER OF SUBSTRING 

99 s 

100 REM ===== MAIN PROGRAM ===== 

101 PRINT "<SC>" : REM "SHIFT - CLR/HOME" 

102 PRINT TAB(20 - (LEN (PN*) / 2>) PN* 

110 READ NAME* 

120 IF NAME* = “EOF" THEN PRINT#4, t CL0SE4 s END 
130 LET L = LEN(NAME*) 

140 GOSUB 600: REM REMOVE COMMA 
150 GOSUB 1600: REM REMOVE MIDDLE INITIAL 
160 GOSUB 400: REM SPLIT NATES 
170 LET NAME* = RT* + " " + LF* 

100 GOSUB 800: REM PRINT PLACE CARD 
190 GOTO lie 
200 : 

300 REM == DATA SECTION — 

301 DATA "JOHNSON, SUE L." 

302 DATA "GREEN, BILL U," 

303 DATA "ANDERSON, JON J. ” 

304 DATA "EOF" 

3% : 

400 REM == SPLIT THE NATES == 

410 LET Cl = 1: LET C2 = L 

420 GOSUB 500 : REM FIND SPACE (I IS THE LOCATION OF TIE SPACE) 
430 LET LF*= LEFT*(NAIC*, 1-1) s REM LAST NAME 

440 LET RT*= RIGHT*(NAME*, L-I) : REM FIRST NAME 

450 RETURN 
460 : 

500 REM == FIND THE SPACE — 

510 FOR I = Cl TO C2 

520 IF MID*(NfWE*, 1,1) = " " THEN RETURN 
530 NEXT I 

540 PRINT "NO SPACE IN THIS NAME" : STOP 
550 : 
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600 REM ===== REMOVE THE COMMA ===== 

610 GOSUB 700: REM FIND COMMA (I IS LOCATION OF COMMA) 

620 LET LF* = LEFT*(NAME*, 1-1): REM LAST NAME 
630 LET RT* = RIGHT* (NAME*, L-I): REM FIRST NAME 
640 LET NAME* = LF* + RT* 

650 LET L = LEN(NAME*) 

660 RETURN 
670 : 

700 REM ===== FIND THE COMMA ===== 

710 FOR I = 1 TO L 

720 IF MID*(NAME*,1,1) = THEN RETURN 
730 NEXT I 

740 PRINT "NO COMMA IN THIS NAME": STOP 
800 REM ===== PRINT A CARD ===== 

810 PRINT 

820 GOSUB 1000: REM PRINT TOP BORDER 

830 FOR J = 1 TO 7: GOSUB 1100: NEXT J: REM PRINT SIDE BORDER 
840 GOSUB 1000: REM PRINT CENTER BORDER 

850 FOR J = 1 TO 3: GOSUB 1100: NEXT J: REM PRINT SIDE BORDER 
860 GOSUB 1200: REM PRINT NAME 

870 FOR J = 1 TO 3: GOSUB 1100: NEXT J: REM PRINT SIDE BORDER 
880 GOSUB 1000: REM PRINT BOTTOM BORDER 
890 RETURN 
899 : 

1000 REM ===== PRINT TOP/CENTER/BOTTOM BORDER ===== 

1010 FOR I = 1 TO 60: PRINT "*";:NEXT I 
1020 PRINT 
1030 RETURN 
1040 : 

1100 REM ===== PRINT SIDE BORDER ===== 

1110 PRINT 

1120 FOR I = 2 TO 59: PRINT " NEXT I 
1130 PRINT 
1140 RETURN 
1150 : 
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1200 REM ===== PRINT NOME ===== 

1210 PRINT 

1220 LET N = INT(<58-L)/2) 

1230 FOR I = 1 TO Ns PRINT " "js NEXT I 
1240 PRINT NOME*? 

1250 FOR I = 1 TO 58-N-L s PRINT " s NEXT I 
1260 PRINT 
1278 RETURN 
1260 : 

1600 REN ===== REMOVE MIDDLE INITIAL ===== 

1610 LET Cl = Is LET C2 = L 

1620 GOSUB 500; REM FIND 1ST SPACE (I IS LOCATION OF SPACE) 
1630 LET II = I 

1640 LET Cl = II + 1; LET C2 = L 

1650 GOSUB 500: REM FIND 2ND SPACE (I IS LOCATION OF SPACE) 
1660 LET 12 = I 

1670 LET LF* = LEFT*(NAME*,II - 1) 

1680 LET MD* = MID*(NAME*,I1+1,I2-I1-1) 

1690 LET NAME* = LF*+ M "+MD* 

1700 LET L = LEN(NAMEt) 

1710 RETURN 
1720 ; 

READY. 
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1 PN* = "P-8.8 PLACE CARD” 

2 NA* = "ROBERT N. BATESON" 

3 DA* = ”9/13/85“ 

5 GPEN4,4 

6 CMD4 

10 REN ===== VARIABLES ===== 

11 REM I = LOOP COUNTER 

12 REN J = LOOP COUNTER 

13 REM L = LENGTH OF MANE 

14 REM N = NUMBER OF SPACES 

15 REM NAME* = FULL NAME 

16 REN LF* - FIRST NAME 

17 REM RT* = LAST NAME 

18 REM HD* = FIRST NAME 

19 REM Cl = FIRST CHARACTER OF SUBSTRING 

20 REM C2 = LAST CHARACTER OF SUBSTRING 

21 REM S* = MESSENGER STRING 

99 : 

100 REM ===== MAIN PROGRAM ===== 

101 PRINT “ISO" : REM “SHIFT - CLR/HOME" 

102 PRINT TAB(20 - (LEN <PN*> / 2)) PN* 

110 READ NAME* 

120 IF NAME* = “EOF" THEN PRINT#4, : CL0SE4 : END 
130 LET L = LEN(NAME*) 

140 GOSUB 600: REM REMOVE COMMA 
150 GOSUB 1680: REM REMOVE MIDDLE INITIAL 
160 GOSUB 408: REM SPLIT NAMES 
170 LET NAME* = RT* + “ " + LF* 

180 GOSUB 800: REM PRINT PLACE CARD 
190 GOTO 110 
200 : 

300 REM — DATA SECTION === 

301 DATA "JOHNSON, SUE" 

382 DATA “GREEN, BILL U, “ 

303 DATA “ANDERSON, JON“ 

304 DATA “EOF" 

390 : 

400 REM = SPLIT TIC NAMES == 

410 LET Cl = 1: LET C2 = L 

420 GOSUB 500 : REM FIND SPACE (I IS THE LOCATION OF THE SPACE) 
430 LET LF*= LEFT*(NAME*, 1-1) : REM LAST NAME 

440 LET RT*= RIGHT*(NAME*, L-I) : REM FIRST NAME 

450 RETURN 
460 : 

500 REM = FIND THE SPACE = 

510 LET S* = “ “ 

520 FOR I = Cl TO C2 

530 IF MID*(NAME*,I,1) = " “ THEN RETURN 
540 NEXT I 

550 LET S* = "NO SPACE FOUND" 

560 RETURN 
570 : 
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688 REM ===== REMOVE THE COMMA ===== 

618 60SUB 706: REM FIND COMMA (I IS LOCATION OF COMMA) 

620 LET LF* = LEFT*(NAME*, I-l): REM LAST NAtC 
630 LET RT* = RIGHT*(NAME*, L-I): REM FIRST NAME 
640 LET NAME* = LF* + RT* 

650 LET L = LENtNAME*) 

660 RETURN 
670 : 

700 REM ===== FIND THE COMMA ===== 

710 FOR I = 1 TO L 

720 IF MID*(NAME*,1,1) = ",“ THEN RETURN 
730 NEXT I 

740 PRINT "NO COMMA IN THIS NAME": STOP 
800 REM ===== PRINT A CARD ===== 

810 PRINT 

820 60SUB 1880: REM PRINT TOP BORDER 

830 FOR J = 1 TO 7: BOSUB 1188: NEXT J: REM PRINT SIDE BORDER 
840 60SUB 1000: REM PRINT CENTER BORDER 

850 FOR J = 1 TO 3: BOSUB 1100: NEXT J: REM PRINT SIDE BORDER 
860 60SUB 1200: REM PRINT NAME 

870 FOR J = 1 TO 3: BOSUB 1100: NEXT J: REM PRINT SIDE BORDER 
880 60SUB 1888: REM PRINT BOTTOM BORDER 
890 RETURN 
899 : 

1000 REM ===== PRINT TOP/CENTER/BOTTOM BORDER ===== 

1010 FOR I = 1 TO 60: PRINT "*";:NEXT I 
1020 PRINT 
1030 RETURN 
1040 : 

11(» REM ===== PRINT SIDE BORDER ===== 

1110 PRINT 

1120 FOR I = 2 TO 59: PRINT " " 5 : NEXT I 
1130 PRINT ■*■ 

1140 RETURN 
1150 : 

1200 REM ===== PRINT NAME ===== 

1210 PRINT 

1220 LET N = INT((58-L)/2) 

1230 FOR I = 1 TO N: PRINT " NEXT I 
1240 PRINT NAME*; 

1250 FOR I = 1 TO 58-N-L : PRINT " : NEXT I 

1260 PRINT 
1270 RETURN 
1280 : 
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1680 REN ===== REMOVE MIDDLE INITIAL ===== 

1618 LET Cl = 1: LET C2 = L 

1628 60SUB 588: REM FIND 1ST SPACE (I IS LOCATION OF SPACE) 
1625 IF S* = "NO SPACE FOUND" THEN PRINT S$: STOP 
1638 LET II = I 

1648 LET Cl = II + 1: LET C2 = L 

1658 60SUB 588: REM FIND 2ND SPACE (I IS LOCATION OF SPACE) 

1655 REM IF "NO SPACE FOUND" TI«N I = L + 1 AND 

1656 REM MD* WILL BE THE FIRST NAME AS DESIRED 
1668 LET 12 = I 

1678 LET LF* = LEFT*(NAME*,I1 - 1) 

1668 LET MD* = MID*(NAME$, 11+1,12-I1-1) 

1698 LET NAME* = LF*+” "+MD* 

1788 LET L = LEN(NAME*) 

1718 RETURN 
1728 : 

READY. 



1 PN* = "P-9.1 SALES” 

2 NA* = "ROBERT N. BATESON” 

3 DA* = "9/13/85“ 

10 REM ===== VARIABLES ===== 

11 REM C* * DUMMY VARIABLE FOR INPUT 

12 REM I = LOOP COUNTER 

13 REM J = LOOP COUNTER 

14 REM LINE* = ROW OF BASICS 

15 REN MESSAGE* = PART OF TABLE HEADER 

16 REM NAME*<I) = LIST OF SALESPERSONS 

17 REM SALES(I) = LIST OF SALES 

18 REM T* = VARIABLE USED FOR SORTING 

19 REM T1 = VARIABLE USED FOR SORTING 
99 s 

108 REM ===== MAIN PROGRAM ===== 

181 PRINT "<SC>" s REM "SHIFT - CLR/HOME" 

182 PRINT TAB(20 - (LEN (PN*) / 2)> PN* 

110 GOSUB 2000: REM GET NAMES AND SCORES 
120 MESSAGE* = "UNSORTED" 

130 GOSUB 5G00: REM PRINT TABLE 
140 GOSUB 2200: REM SORT BY NAME 
158 MESSAGE* = “SORTED BY NAME” 

160 GOSUB 56O0: REM PRINT TABLE 
178 GOSUB 2608: REM SORT BY SALES 
180 MESSAGE* = "SORTED BY SALES- 
190 GOSUB 56O0: REM PRINT TABLE 

198 END 

199 : 

2000 REM == ENTER NAMES AND SALES == 

2010 PRINT “<SC>" : REM "SHIFT - CLR/HOME* 

2020 INPUT "HOW MANY NAMES";N 
2030 DIM NAMEt(N), SALES(N) 

2040 FOR I = 1 TO N 
2050 PRINT 

2060 PRINT I;:INPUT “ENTER NAME”;NAME*(I) 

2070 INPUT " SALES";SALES!I) 

2080 NEXT I 
2090 RETURN 
2099 : 

220O REM = = = = = SORT BY NfWE ===== 

2205 IF N (= 1 THEN RETURN : REM NO SORTING NEEDED 
2210 FOR I = 1 TO N - 1 
2220 FOR J = (I + 1) TO N 

2230 IF NAME*(I) > NAME*(J) THEN GOSUB 2800: REM SWAP NAMES AND SALES 

2240 NEXT J 

2250 NEXT I 

2260 RETURN 

2270 : 
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2600 REM ===== SORT BY SALES ===== 

2605 IF N <= 1 TKEN RETURN : REN NO SORTING NEEDED 
2610 FOR I = 1 TO N - 1 
2620 FOR J=(I+1)T0N 

2630 IF SALES!I) < SALES(J) THEN 60SUB 2800 : REN SWAP NAMES AND SALES 

2640 NEXT J 

2650 NEXT I 

2660 RETURN 

2670 : 

2800 REN = SWAP NAMES AND SALES = 

2810 LET T* = NAME*!I) 

2815 LET T1 = SALES(I) 

2820 LET NAME*!I) = NAME*!J) 

2825 LET SALES(I) = SALES<J) 

2830 LET NANE*!J) = T* 

2835 LET SALES(J) = T1 
2840 RETURN 
2850 t 

5600 REM = SUBROUTINE TO PRINT TABLE ===== 

5610 LINE*= “-- 

5620 PRINT "TSC>" s REN “SHIFT - CLR/HOME” 

5630 PRINT "WEEKLY SALES" 

5640 PRINT MESSAGE* 

5650 PRINT LINE* 

5660 PRINT "NAME", " SALES" 

5670 PRINT LINE* 

5680 FOR I = 1 TO N 

5690 PRINT NAME*(I), SALES!I) 

5700 NEXT I 
5710 PRINT LINE* 

5720 60SUB 6200 : REN HOLD SCREEN 
5730 RETURN 
5740 : 

6200 REM === == == HOLD SCREEN = = === 

6210 PRINT "LHM>“ : REM "CLR/HOME" 

6220 FOR LIIC = 1 TO 20 

6230 PRINT "-CCD>";: REM "CRSR DOWN" 

6240 NEXT LII« 

6245 PRINT 

6250 INPUT “PRESS RETURN TO CONTINUE";C* 

6260 RETURN 
6270 : 


READY, 



I pn* = "P-9.2 INVENTORY" 

2Nft$= "ROBERT N. BATESON* 

3 DA* = "9/14/85" 

18 REM = == = = VARIABLES ===== 

II REN C* = DUMMY VARIABLE FOR INPUT 

12 REM I = LOOP COUNTER 

13 REM J = LOOP COUNTER 

14 REM LINE* = RON OF DASHES 

15 REM MESSAGE* = PART OF TABLE HEADER 

16 REM NAME*(I) = LIST OF ITEM NAMES 

17 REM PRICE(I) = LIST OF PRICES 

18 REM QUANTITY(I) = LIST OF NUMBERS CM HAND 

19 REM T* = VARIABLE USED FOR S0RTIN6 

20 REM T1 = VARIABLE USED FOR SORTING 

21 REM T2 = VARIABLE USED FOR S0RTIN6 
99 : 

188 REM ===== MAIN PROGRAM = 

101 PRINT "<SC>" s REM "SHIFT - CLR/HOME* 

182 PRINT TAB(28 - (LEN (PN*) / 2)) PN* 

110 GOSUB 2000: REM GET NAMES, PRICES & QUANTITIES 
128 MESSAGE* = "UNSORTED" 

138 GOSUB 56O0: REM PRINT TABLE 
148 GOSUB 2200: REM SORT BY NAME 
150 MESSAGE* = "SORTED BY NAME" 

168 GOSUB 560O: REM PRINT TABLE 
170 GOSUB 26O0: REM SORT BY PRICE 
180 MESSAGE* = "SORTED BY PRICES" 

198 GOSUB 5600: REM PRINT TABLE 

198 END 

199 : 

200O REM == ENTER NAMES, PRICES * QUANTITIES == 

2010 PRINT "<SC>" : REM "SHIFT - CLR/HOME" 

2020 INPUT "HOU MANY NAMES";N 

203O DIM NAME*(N), PRICE(N), QUANTITY(N) 

2040 FOR I = 1 TO N 
2050 PRINT 

2860 PRINT I}:INPUT "ENTER NAME";NAME*(I) 

207O INPUT " PRICE"{PRICE(I) 

2075 INPUT " QUANTITY"{QUANTITY(I) 

2O80 NEXT I 
2090 RETURN 
2099 : 

2200 REM ===== SORT BY NAME = == = = = 

2205 IF N <= 1 THEN RETURN : REM NO SORTING NEEDED 
2210 FOR I = 1 TO N - 1 
2220 FOR J = <1 + 1) TO N 

2230 IF NA»E*(I) > NAME*(J) THEN GOSUB 2800: REM SWAP NAMES AND SALES 

2240 NEXT J 

2250 NEXT I 

2260 RETURN 

2270 : 
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2680 REM ===== SORT BY PRICE ===== 

2605 IF N <= 1 THEN RETURN : REM Ml SORTING NEEDED 
2618 FOR I = 1 TO N - 1 
2620 FOR J=!I + 1)T0N 

2630 IF PRICE(I) < PRICE(J) THEN 60SUB 2800 : REM SWOP NAMES AND PRICES 

2640 NEXT J 

2650 NEXT I 

2660 RETURN 

2670 : 

2800 REM === SNAP NAMES, PRICES ft QUANTITIES == 

2810 LET T* = NAME*!I) 

2815 LET T1 = PRICE(I) 

2816 LET T2 = QUANTITY!I) 

2820 LET NAME*(I) = NAME*(J> 

2825 LET PRICE!I) = PRICE!J) 

2826 LET QUANTITY!I) « QUANTITYlJ) 

2830 LET NAME*iJ) = T* 

2835 LET PRICE!J) = T1 

2836 LET QUANTITY!J) * T2 
2840 RETURN 

2850 : 

5600 REM === SUBROUTINE TO PRINT TABLE === 

5610 LINE*= "-■ 

5620 PRINT "<SC>" s REM "SHIFT - CLR/HOfC" 

5630 PRINT "HARDWARE INVENTORY" 

5640 PRINT MESSAGE* 

5650 PRINT LIKE* 

5660 PRINT “NAME"; TAB!15)"PRICE"; TAB!23)"ffiJfWTITY” 

5670 PRINT LINE* 

5680 FOR I = 1 TO N 

5690 PRINT NAME*!I); TAB(14);PRICE!I); TAB(22);QUANTITY!I) 

5700 NEXT I 
5710 PRINT LINE* 

5720 GOSUB 6200 : REM HOLD SCREEN 
5730 RETURN 
5740 : 

6200 REM ====== HOLD SCREEN ===== 

6210 PRINT "THM>" : (EM "CLR/HOME" 

6220 FOR LINE = 1 TO 20 

6230 PRINT "{CD}";: REM "CRSR OWN" 

6240 NEXT LINE 
6245 PRINT 

6250 INPUT "PRESS RETURN TO CONTINUE";C* 

6260 RETURN 
6270 : 


READY, 



1 PN* - "P-9.3 BASEBALL" 

2 NA* - "ROBERT N. BATESON* 

3 DA* = "9/14/85” 

10 REM ===== VARIABLES ===== 

11 REM C* = DUMMY VARIABLE FOR Ilti>UT 

12 REM I = LOOP COUNTER 

13 REM J = LOOP COUNTER 

14 REM LINE* = ROW OF DASHES 

15 REM MESSAGE* = PART OF TABLE HEADER 

16 REM NAME* <I) = LIST OF PLAYERS 

17 REM BA(I) = LIST OF BATTING AVERAGES 

18 REM HITS(I) = LIST OF TOTAL HITS 

19 REM AB(I) = LIST OF TOTAL AT-BATS 

20 REM T* = VARIABLE USED FOR SORTING 

21 REM T1 = VARIABLE USED FOR SORTING 

22 REM T2 = VARIABLE USED FOR SORTING 
£3 REM T3 = VARIABLE USED FOR SORTING 
40 REM ===== FUNCTIONS ===== 

47 REM FN D ROUNDS TO 3 DECIMAL PLACES 

48 DEF FN D(X) = INT(1080*X + .5) / 1000 

99 : 

100 REM ===== MAIN PROGRAM ===== 

101 PRINT "<SC>" s REM "SHIFT - CLR/HOME" 

102 PRINT TAB(20 - (LEN (PN*) / 2)) PN* 

110 GOSUB 2000: REM GET NAMES, HITS ft AT-BATS 
120 MESSAGE* = "UNSORTED" 

130 GOSUB 5600: REM PRINT TABLE 
140 GOSUB 2200: REM SORT BY NAME 
150 MESSAGE* = "SORTED BY NAME" 

160 GOSUB 5600: REM PRINT TABLE 

170 GOSUB 2600: REM SORT BY BATTING AVERAGE 

180 MESSAGE* = "SORTED BY BATTING AVERAGE" 

190 GOSUB 5600: REM PRINT TABLE 

198 END 

199 : 

2000 REM = ENTER NAMES, HITS ft AT-BATS = 
2010 PRINT "<SC>“ : REM “SHIFT - CLR/HOME" 
2020 INPUT “HOW MANY NAMES";N 
2030 DIM NAME*(N), BA(N), HITS(N), AB(N) 

2040 FOR I = 1 TO N 
2050 PRINT 

2060 PRINT I;:IPPUT "ENTER NA)C“;NAME*(I> 

2070 INPUT " HITS"jHITS(I> 

2075 INPUT " AT-BATS";AB(I) 

2076 LET BA(I) = FN D(HITS(I)/AB(I)) 

2080 NEXT I 

2090 RETURN 
2099 : 
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2200 REM ===== SORT BY NAME —— 

2205 IF N <■ 1 THEN RETURN > REN NO SORTING NEEDED 
2210 FOR I = 1 TO N - 1 

2220 FOR J = (I + 1) TO N 

2230 IF NAME*(I) > NAME8CJ) THEN GOSUB 28001 REN SNAP NAMES AND SALES 

2240 NEXT J 

2250 NEXT I 

2280 RETURN 

2270 i 

2600 REM «■ SORT BY BATTING AVERAGE «== 

2605 IF N <* 1 THEN RETURN : REM NO SORTING NEEDED 
2610 FOR I ■ 1 TO N - 1 

2620 FOR J » (I + 1) TO N 

2630 IF BA(I) < BA(J> THEN GOSUB 2800 s REN SNAP NAMES 8 STATS 

2640 NEXT J 

2650 NEXT I 

2660 RETURN 

2670 t 

2800 REM —■ SWAP NAMES 8 STATS = 

2810 LET T* - NAME*(I) 

2815 LET T1 - BA(I) 

2816 LET T2 - HITS(I) 

2817 LET T3 = AB(I) 

2820 LET NAME$(I) = NAME«(J) 

2825 LET BA(I) = BA(J) 

2826 LET HITS(I) = HITS(J) 

2827 LET AB(I) = ABU) 

2830 LET NAME*(J) = T* 

2835 LET BA(J) » T1 

2836 LET HITS(J) = T2 

2837 LET AB<J> = T3 
2840 RETURN 

2850 : 
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5600 REM — SUBROUTINE TO PRINT TABLE === 

5610 LINE*= "-" 

5620 PRINT "{SO" s REM “SHIFT - CLR/HOME" 

5630 PRINT "BASEBALL STATISTICS" 

5640 PRINT MESSAGE* 

5650 PRINT LINE* 

5660 PRINT TAB(15)"BATTING"; TAB(24)“TOTAL"; TAB(31)"TOTAL" 

5665 PRINT "NAME"; TAB(15)“AVERAGE”; TAB(24)“HITS"; TAB(31)"AT-BATS" 
5670 PRINT LINE* 

5680 FOR I = 1 TO N 

5690 PRINT NA**(I); TAB(14);BA(I); TAB(23);HITS(I); TAB(36);AB(I) 
5700 NEXT I 
5710 PRINT LINE* 

5720 60SUB 6200 : REM HOLD SCREEN 
5730 RETURN 
5740 s 

6200 REM ======= HOLD SCREEN === == 

6210 PRINT "TWO" ! REM “CLR/HOME” 

6220 FOR LINE = 1 TO 20 

6230 PRINT "{CD}";: REM “CRSR DOWN" 

6240 NEXT LINE 
6245 PRINT 

6250 INPUT "PRESS RETURN TO CONTINUE";C* 

6268 RETURN 
6270 : 

READY. 
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1 PNS = "P-9.4 PAYROLL" 

2 NAS = "ROBERT N. BATESON" 

3 DA* = "9/14/85" 

10 REM ===== VARIABLES ===== 

11 REM CS = DUMMY VARIABLE FOR INPUT 

12 REM I = LOOP COUNTER 

13 REM J = LOOP COUNTER 

14 REM LINES = ROW OF DASHES 

15 REM MESSAGES = PART OF TABLE HEADER 

16 REM NAMES(I) = LIST OF EMPLOYEES 

17 REM WAGE(I) = LIST OF WAGE RATES 

18 REM HOURS(I) = LIST OF HOURS WORKED 

19 REM PAY(I) = LIST OF EMPLOYEE’S PAY 

20 REM TS = VARIABLE USED FOR S0RTIN6 

21 REM T1 = VARIABLE USED FOR SORTING 

22 REM T2 = VARIABLE USED FOR S0RTIN6 

23 REM T3 - VARIABLE USED FOR SORTING 
40 REM ===== FUNCTIONS ===== 

47 REM FN C ROUNDS TO 2 DECIMAL PLACES 

48 DEF FN C(X) = INT(100*X + .5) / 188 
99 s 

188 REM ===== MAIN PROGRAM ===== 

101 PRINT "TSC>" : REM "SHIFT - CLR/HOME" 

182 PRINT TAB(28 - (LEN (PNS) / 2)) PNS 

110 GOSUB 2000: REM GET NAPES, WAGE RATES ft HOURS 

128 MESSAGES = "UNSORTED" 

130 GOSUB 5680: REM PRINT TABLE 
140 GOSUB 2208: REM SORT BY NAME 
150 MESSAGES = “SORTED BY NAME" 

168 GOSUB 5688: REM PRINT TABLE 
178 GOSUB 2688: REM SORT BY PAY 
180 MESSAGES = "SORTED BY PAY" 

198 GOSUB 5608: REM PRINT TABLE 

198 END 

199 : 

2000 REM = ENTER NAMES, WAGE RATE ft HOURS = 

2018 PRINT "TSC>“ : REM "SHIFT - CLR/HOME" 

2020 INPUT "HOW MANY NAMES";N 

2838 DIM NAMES(N), WAGE(N), HOURS(N), PAY(N) 

2040 FOR I = 1 TO N 
2050 PRINT 

2060 PRINT I;: INPUT "ENTER NATC^NRCESa) 

2870 INPUT " WAGE RATE";WAGE(I) 

2075 INPUT " HOURS";HOURS(I) 

2076 IF HOURS(I) <= 40 THEN PAY(I) = HOURS(I) • WAGE(I) 

2877 IF HOURS!I) > 40 THEN PAY(I) = 40 « WAGE(I) + <HOURS(I)-40)«1.5*WAGE(I) 
2078 LET PAY(I) = FN C<PAY(I)) 

2888 NEXT I 
2090 RETURN 
2899 : 



2200 REM ===== SORT BY NOME ===== 

2205 IF N <= 1 THEN RETURN : REM NO SORTING NEEDED 
2210 FOR I = 1 TO N - 1 
2220 FOR J » (I + 1) TO N 

2230 IF NOME*(I) > NAME*(J) THEN GOSUB 2800: REM SWOP NAMES AND SALES 

2240 NEXT J 

2250 NEXT I 

2260 RETURN 

2270 : 

2600 REM == SORT BY PAY === 

2605 IF N <= 1 THEN RETURN : REM NO SORTING NEEDED 
2610 FOR I = 1 TO N - 1 
2620 FOR J=<I+l)TON 

2630 IF PAY(I) < PAY(J) THEN GOSUB 2800 : REN SIMP NAPES ft STATS 

2640 NEXT J 

2650 NEXT I 

2660 RETURN 

2670 : 

2800 REM = SWAP NAPES, WAGE RATES ft HOURS = 

2810 LET Tft = NAPEftU) 

2815 LET T1 = WAGE(I) 

2816 LET T2 = HOURS(I) 

2817 LET T3 ■ PAY<I> 

2820 LET NAME*(I) = NAMEft(J) 

2825 LET WAGE(I) = WAGE<J) 

2826 LET HOURS(I) = HOURS(J) 

2827 LET PAY(I) = PAY(J) 

2830 LET NAPE$(J> = T* 

2835 LET WAGE(J) = T1 

2836 LET HOURS(J) = T2 

2837 LET PAY(J) = T3 
2840 RETURN 

2850 : 
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5600 REM === SUBROUTI fC TO PRINT TABLE === 

5610 LIhE*= “-- 

5620 PRINT "<SC>" : REM "SHIFT - CLR/HOME" 

5630 PRINT "PAYROLL* 

5640 PRINT MESSAGE* 

5650 PRINT LINE* 

5660 PRINT "EMPLOYEE"; TAB(13)"WAGE"; TAB(21)"PAY" 
5665 PRINT "NAME"; TAB(13)"RATE"; TAB(21)"F0R WEEK" 
5670 PRINT LINE* 

5680 FOR I = 1 TO N 

5690 PRINT NAME*(I); TAB<12>;WAGE(I); TAB(20);PAY(I) 
5700 NEXT I 
5710 PRINT LINE* 

5720 GOSUB 6200 : REM HOLD SCREEN 
5730 RETURN 
5740 : 

6200 REM ===-- HOLD SCREEN == ===== 

6210 PRINT "<HM>“ s REM "CLR/HOME" 

6220 FOR LINE = 1 TO 20 

6230 PRINT "<CD>";: REM "CRSR DOWN" 

6240 NEXT LINE 
6245 PRINT 

6850 INPUT "PRESS RETURN TO CONTINUE";C* 

6260 RETURN 
6270 : 

READY. 
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1 PN* = "P-9.5 GRADES” 

2 NA* = "ROBERT N. BATESON’ 

3 DA* - ”9/14/85" 

18 REM ===== VARIABLES ===== 

11 REM C* = DUMMY VARIABLE FOR INPUT 

12 REM I = LOOP COUNTER 

13 REM J = LOOP COUNTER 

14 REM LINE* = ROW OF DASHES 

15 REM MESSAGE* = PART OF TABLE HEADER 
1G REM NAME*(I) = NAME OF EACH STUDENT 

17 REM MARK(I) = THIS WEEK'S SCORE 

18 REM 6*(I)(I) = CURRENT LETTER GRADE 

19 REM Tl* = VARIABLE USED FOR SORTING 

20 REM T2* = VARIABLE USED FOR SORTING 

21 REM Tl = VARIABLE USED FOR SORTING 

99 s 

100 REM ===== MAIN PROGRAM ===== 

101 PRINT "<SC>" s REM "SHIFT - CLR/HOME" 

102 PRINT TAB(20 - (LEN <PN*> / 2)> PN* 

110 GOSUB 2000: REM GET NAMES ft SCORES 
120 MESSAGE* = "UNSORTED" 

130 GOSUB 5G00: REM PRINT TABLE 
140 GOSUB 2200: REM SORT BY NAME 
150 MESSAGE* = "SORTED BY NAME" 

160 GOSUB 5600: REM PRINT TABLE 
170 GOSUB 2600: REM SORT BY SCORE 
180 MESSAGE* = "SORTED BY SCORE” 

190 GOSUB 5600: REM PRINT TABLE 

198 END 

199 : 

2000 REM — ENTER NAMES AND SCORES == 

2010 PRINT "<SC>" : REM "SHIFT - CLR/HOME" 

2020 INPUT "HOW MANY NAMES”;N 
2030 DIM NAME*(N), MARK(N), 6*<N) 

2040 FOR I = 1 TO N 
2050 PRINT 

2060 PRINT I;:INPUT "ENTER NAME”;NAME*(I) 

2070 INPUT ” SCORE";MARK(I) 

2071 IF MARK(I) >= 95 THEN G*(I> = "A" 

2072 IF MARK(I) < 95 AND MARK(I) >= 85 THEN 6*<I> = "B" 

2073 IF MARK(I) < 85 AND MARK(I) >= 70 THEN 6*<I> = "C" 

2074 IF MARK(I) ( 70 AND MARK(I) >= 60 THEN 6*<I) = "D" 

2075 IF MARK(I) < 60 THEN 6*<I> = "F" 

2080 NEXT I 

2090 RETURN 
2099 : 
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22(90 REM ===== SORT BY NAME ===== 

2205 IF N <= 1 THEN RETURN : REM NO SORTING NEEDED 
2210 FOR I = 1 TO N - 1 
2220 FOR J=(I+1)T0N 

2230 IF NAMES(I) > NAME*(J) THEN 60SUB 2800: REM SWAP NAMES AND SALES 

2240 NEXT J 

2250 NEXT I 

2280 RETURN 

2270 : 

2800 REM ===== SORT BY SCORE ====== 

2605 IF N <= 1 THEN RETURN : REM NO SORTING NEEDED 
2610 FOR I = 1 TO N - 1 
2820 FOR J = (I + 1) TO N 

2630 IF MARK(I) < MARK(J) THEN GOSUB 2600 : REM SWAP NAMES AND SCORES 

2640 NEXT J 

2650 NEXT I 

2660 RETURN 

2670 : 

2600 REM === SWAP NAMES, SCORES 6 6RADES === 

2810 LET T1S = NAMES(I) 

2815 LET Tl= MARK(I) 

2816 LET T2S = 6S(I) 

2820 LET NAMES(I) = NAMES(J) 

2825 LET MARK(I) = MARD(J) 

2826 LET GS(I) - GS(J) 

2830 LET NAMES(J) = T1S 

2835 LET MARK(J) = T1 

2836 LET GS(J) = T2S 
2840 RETURN 

2850 : 



5600 REM = SUBROUTINE TO PRINT TABLE === 

5610 LINE*= "-" 

5620 PRINT "<SC>“ : REM "SHIFT - CLR/HOME" 

5630 PRINT "GRADES" 

5640 PRINT MESSAGE* 

5650 PRINT LINE* 

5660 PRINT "NAME"; TAB(13)"SCORE"; TAB(21)"GRADE" 
5670 PRINT LIKE* 

5680 FOR I = 1 TO N 

5690 PRINT NAME*(I); TAB(12);NARK(I); TAB(21);G*(I) 
5700 NEXT I 
5710 PRINT LINE* 

5720 GOSUB 6200 : REM HOLD SCREEN 
5730 RETURN 
5740 : 

6200 REM —===== HOLD SCREEN ===== = 

6210 PRINT "<HM>“ s REM "CLR/HOPE" 

6220 FOR LINE = 1 TO 20 

6230 PRINT "-CCD>";: REM "CRSR DOWN" 

6240 NEXT LINE 
6245 PRINT 

6250 INPUT "PRESS RETURN TO CONTINUE”;C* 

6260 RETURN 
6270 : 

READY. 
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1 PN* = "P-10.1 SALES” 

2 NA* = "ROBERT N. BATESON" 

3 DA* = "9/14/85" 

10 REN —— VARIABLES —— 

11 REN C* ■ MENU INPUT CHARACTER 

12 REN C = MENU CHOICE NUMBER 

13 REN DELAY * TIME DELAY COUNTER 

20 REM ======== FILE VARIABLES ====== 

21 REM N = NUMBER OF NAMES IN THE FILE 

22 REM WEEK - WEEK NUMBER 

23 REM NAME*(I) = LIST OF NAMES 

24 REM USAL(I) = LIST OF WEEKLY SALES 

25 REM TSAL(I) - LIST OF TOTAL SALES 

30 REM —— UTILITY VARIABLES ===== 

31 REM I « LOOP COUNTER 

32 REM J = LOOP COUNTER 

33 REM LINE* ■ A ROW OF DASHES 

34 REM T* = TEMPORARY SORT VARIABLE 

35 REM T1 = TEMPORARY SORT VARIABLE 

36 REM T2 = TEMPORARY SORT VARIABLE 

50 REM ===== INITIALIZATION ===== 

51 DIM NAME*(100),WSAL(1B0),TSAL<100) 

59 s 

100 REM ===== MENU ========= 

101 PRINT "<8C>" * REM “SHIFT/CLR/HOME" 

102 PRINT TAB(20 - (LEN (PN*) / 2)) PN* 

110 PRINT TAB(IB);"MENU" 

120 PRINT s PRINT "1. ENTER NAMES ft START NEW FILE” 

130 PRINT i PRINT "2. READ FILE ft PRINT TABLE" 

140 PRINT i PRINT "3. ENTER SALES ft UPDATE FILE" 

ISO PRINT s PRINT "4. ZERO SALES ft WRITE FILE” 

160 PRINT t PRINT ”5. SORT BY SALES ft PRINT TABLE" 

170 PRINT s PRINT "6. END PROGRAM- 

180 PRINT « PRINT i PRINT : PRINT TAB(3) 

190 REM SET USERS CHOICE 

200 INPUT "ENTER THE NUMBER OF YOUR CHOICE ";C* 

210 LET C « VAL (C*) 

220 REM MAKE SURE CHOICE IS VALID 
230 PRINT : PRINT 

240 IF C > 0 AND C ( 7 AND INT (C) = C THEN SOTO 280 
250 PRINT "I RESPOND ONLY TO INTEGERS FROM 1 TO 6" 
260 FOR DELAY » 1 TO 10OO : NEXT DELAY 
270 GOTO 100 

280 ON C SOSUB 1100,1200,1300,140O,1500,380 
290 GOTO 180 

30O PRINT "GOODBYE" i END 
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1190 REM =ENTER NAMES ft START NEW FILE= 

1110 GOSUB 2000 s REM ENTER NAMES 
1120 GOSUB 2200 : REM SORT NAISS 
1130 GOSUB 5000 : REM ZERO SALES 
1140 GOSUB 5200 : REM WRITE FILE ON DISK 
1150 GOSUB 5600 : REM PRINT TABLE 
1160 GOSUB 6200 : REM HOLD SCREEN 
1170 RETURN : REM RETURN TO MENU 
1180 : 

1200 REM =READ FILE ft PRINT TABLE= 

1210 GOSUB 5400 :REM READ FILE FROM DISK 
1220 GOSUB 5600: REM PRINT TABLE 
1230 GOSUB 6200: REM HOLD SCREEN 
1240 RETURN : REM RETURN TO MENU 
1250 : 

1300 REM =*ENTER SALES ft UPDATE FILE== 

1310 GOSUB 5400: ISM READ FILE FROM DISK 

1320 60SUB 2400: REN ENTER SALES ft UPDATE FILE 

1330 GOSUB 5200: REM WRITE UPDATED FILE ON DISK 

1340 GOSUB 5600: REM PRINT TABLE 

1350 GOSUB 6200: REM HOLD SCREEN 

1360 RETURN : REM RETURN TO MENU 

1370 : 

1400 REM =ZERO SALES ft WRITE FILE== 

1410 GOSUB 5400: REM READ FILE FROM DISK 

1420 GOSUB 5800: REM ZERO SALES 

1430 GOSUB 5200: REM WRITE ZEROED FILE ON DISK 

1440 GOSUB 5600: REM PRINT TABLE 

1450 GOSUB 6200: REM HOLD SCREEN 

1460 RETURN : REM RETURN TO MENU 

1470 : 

1500 REM “SORT BY SALES ft PRINT TABLE®* 

1510 GOSUB 5400: ISM READ FILE FROM DISK 
1520 GOSUB 2600: REM SORT BY SALES 
1530 GOSUB 5600: REM PRINT TABLE 
1540 GOSUB 6200: REM HOLD SCREEN 
1550 RETURN : ISM RETURN TO MENU 
1560 : 

2090 ISM ===== ENTER NAMES ===== 

2010 PRINT “{SO": REM "SHIFT/CLR/HOME" 

2020 PRINT "ENTER NAMES FOR NEW FILE" 

2030 PRINT : PRINT 

2040 INPUT "HOW MANY NAMES WILL YOU ENTER";N 

2050 LET WEEK = 0 

2060 PRINT 

2070 FOR I = 1 TO N 

2080 PRINT I; TAB(5);: INPUT NAME«(I) 

2090 NEXT I 
2100 RETURN 
2110 : 
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£280 REN == SORT BY NAME == 

2210 FOR I * 1 TO N - 1 
2220 FOR J = I + 1 TO N 

ppm if NAME*(I) > NAME*(J) THEN 60SUB 2800 : REM SWOP NAMES AND SCORES 

2240 NEXT J 

2250 NEXT I 

2260 RETURN 

2270 : 

2400 REM = ENTER SALES 4 UPDATE = 

2410 PRINT ”{SC> n : REM "SHIFT/CLR/HOME" 

2420 LET UEEK = MEEK + 1 

2430 PRINT s PRINT "ENTER THE SALES FOR EACH EMPLOYEE”: PRINT 
2440 FOR I * 1 TO N 

2450 PRINT NAME*(I){TAB(IS); : INPUT USAL(I) 

2460 LET TSAL(I) = TSAL(I) + USAL(I) 

2480 NEXT I 
24S0 RETURN 
2500 : 

2600 REM ——— SORT BY SALES ====== 

2610 FOR I - 1 TO N - 1 
2620 FOR J • I + 1 TO N 

2630 IF HSAL(I) < USAL(J) THEN SOSUB 2800 : REM SWAP NAMES AND SALES 

2640 NEXT J 

2650 NEXT I 

2660 RETURN 

2670 : 

2800 REM = SWAP NAMES AND SALES === 

2810 LET T* = NAME*(I) 

2811 LET T1 = USAL(I) 

2812 LET T2 = TSAL(I) 

2820 LET NAME*(I) = NAME*(J) 

2821 LET USAL(I) = WSAL(J) 

2822 LET TSAL(I) = TSAL(J) 

2830 LET NAME*(J) = T* 

2831 LET USAL(J) = T1 

2832 LET TSAL(J) = T2 
2840 RETURN 

2850 : 

5000 REM ==== = ZERO SALES ===== 

5010 FOR I = 1 TO N 
5020 LET WSAL(I) = 0 
5030 LET TSAL(I) = 0 
5040 NEXT I 
5050 LET UEEK = O 
5060 RETURN 
5070 : 
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8200 REM — WRITE FILE ON DISK === 

5210 PRINT "{SC}" : REN "SHIFT/CLR/HOME" 

5220 FOR 1*1 TO 10 s PRINT s NEXT I 
5230 PRINT TAB(10)“WRITING FILE TO DISK" 

5240 OPEN 3,8,3, "80:SALES,SEQ, WRITE" 

5250 REN WRITE TO FILE 
5260 PRINT03, N 
5270 PRINT03, WEEK 
5200 FOR I - 1 TO N 
5290 PRINT03, NANE*(I) 

5380 PRINT#3, WSAL(I) 

5310 PRINT03, TSAL(I) 

5320 NEXT I 
5330 CL0SE3 
5340 RETURN 

5400 REN ===== READ THE FILE ===== 

5410 PRINT “{SCT" s REM "SHIFT/CLR/HOME" 

5420 FOR I = 1 TO 10 : PRINT : NEXT I 
5430 PRINT TAB(10)"READING FILE FROM DISK" 

5440 OPEN 3,0,3, "SALES,SEQ,READ" 

5450 REM READ FILE 
5460 INPUT83, N 
5470 INPUT43, WEEK 
5400 FOR I = 1 TO N 
5490 INPUT03, NAME*(I) 

5500 INPUT03, WSAL(I) 

5510 INPUT03, TSAL(I) 

5520 NEXT I 
5530 CL0SE3 
5540 RETURN 
5550 : 

5600 REM ===== PRINT TABLE ===== 

5610 LET LINE4= "-■ 

5620 PRINT "{SC>" : REM "SHIFT/CLR/HOME" 

5630 PRINT TABU7) "SALES" 

5640 PRINT TAB(15)"FOR WEEK «” WEEK 
5650 PRINT LINE* 

5660 PRINT "NAME" TAB(12)"WEEKLY SALES"; TAB(20)"TOTAL SALES” 
5600 PRINT LIKE* 

5690 FOR I = 1 TO N 

5700 PRINT NAME4(I) TAB(ll) WSAL(I) TAB(27) TSAL(I) 

5710 NEXT I 
5720 PRINT LIIC* 

5730 RETURN 
5740 : 
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£800 REM = PRINT NOT AVAILABLE === 

£010 PRINT ”{SC>" : REM "SHIFT/CLR/HOME" 

£028 FOR I - 1 TO 8 s PRINT : NEXT I 
6030 PRINT "SORRY, THIS OPTION IS WIT AVAILABLE YET" 
6040 FOR TIIC * 1 TO 1800: NEXT TIME : REM TIME BELAY 
6O60 RETURN 
6860 : 

£288 REM ===== HOLD SCREEN ===== 

6810 PRINT "<HM>" s REM "CLR/HOME" 

6228 FOR I = 1 TO 18 

6830 PRINT "<CD>" : REM "CRSR DOWN" 

6840 NEXT I 

£858 INPUT "PRESS RETURN TO CONTINUE";C* 

6860 RETURN 
6870 : 

READY. 
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1 PN* = "P-10.2 INVENTORY” 

2 NR* * "ROBERT N. BATESON" 

3 DA* = "9/14/05“ 

10 REM == VARIABLES ===== 

11 REM C* = MENU INPUT CHARACTER 

12 REM C - MENU CHOICE NUMBER 

13 REM DELAY = TIME DELAY COUNTER 

20 REM n». FILE VARIABLES ===== 

21 REM N » NUMBER OF NAKS IN THE FILE 

22 REM WEEK ■ WEEK NUMBER 

23 REM NANE*(I> = LIST OF NAMES 

24 REM PRICE(I) = LIST OF PRICES 

25 REM QUANTITY(I) = LIST OF QUANTITIES 

26 REM V(I) = LIST OF VALUES 

30 REM ===== UTILITY VARIABLES ===== 

31 REM I = LOOP COUNTER 

32 REM J » LOOP COUNTER 

33 REM LINE* = A ROW OF DASHES 

34 REM T* = TEMPORARY SORT VARIABLE 

35 REM T1 ■ TEMPORARY SORT VARIABLE 

36 REM T2 = TEMPORARY SORT VARIABLE 

37 REM T3 = TEMPORARY SORT VARIABLE 

50 0EM = = ==== INITIALIZATION ===== 

51 DIM NAME*<1M),PRICE(1B0) ( QUANTITY(100),V<108> 

59 t 

100 REM === = ===== = MENU === = ==== = 

101 PRINT "<SC>" : REM “SHIFT/CLR/HOME" 

102 PRINT TAB(20 - (LEN (PN*) / 2)) PN* 

110 PRINT TAB(18);"MENU" 

120 PRINT : PRINT “1. ENTER NAMES & START NEW FILE" 

130 PRINT * PRINT “2. READ FILE ft PRINT TABLE" 

140 PRINT t PRINT "3. ENTER PRICE, QUANTITYTSSTft UPDATE FILE" 

150 PRINT i PRINT "4. ZERO ft WRITE FILE" 

160 PRINT s PRINT "5. SORT BY PRICE ft PRINT TABLE" 

170 PRINT t PRINT "6. END PROGRAM" 

180 PRINT i PRINT t PRINT : PRINT TAB(3) 

190 REM GET USERS CHOICE 

200 INPUT "ENTER THE NUMBER OF YOUR CHOICE ";C* 

210 LET C - VAL (C*) 

220 REM MAKE SURE CHOICE IS VALID 
230 PRINT s PRINT 

240 IF C ) 0 AW) C < 7 AND INT (C) = C THEN SOTO 280 
250 PRINT "I RESPOND ONLY TO INTEGERS FROM 1 TO 6" 

260 FOR DELAY = 1 TO 1000 s NEXT DELAY 
270 GOTO 100 

280 ON C GOSUB 1100,1200,1300,1400,1500,300 
290 GOTO 100 

300 PRINT "GOODBYE" s END 
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1100 REN =ENTER NAMES & START NEW FILE* 

1110 60SUB 2M i REN ENTER NAMES 
1120 60SUB 2200 : REN SORT NAPES 
1130 SOSUB 5000 : REM ZERO P, Q ft V 
1140 SOSUB 5208 : REN WRITE FILE ON DISK 
1190 SOSUB 5600 ! REN PRINT TABLE 
1160 SOSUB 6208 i REM HOLD SCREEN 
1170 RETURN : REM RETURN TO MENU 
1160 : 

1200 REM *=READ FILE ft PRINT TABLE—* 

1210 SOSUB 5400 sREM READ FILE FROM DISK 
1220 SOSUB 5600: REN PRINT TABLE 

1230 SOSUB 6200: REN HOLD SCREEN 

1231 PRINT “FOR EACH ITEM" : PRINT 
1240 RETURN : REM RETURN TO MENU 
1250 : 

1300 REM **ENTER PRICE, VALUECLOSEft UPDATE FILE** 

1310 SOSUB 5400: REM READ FILE FROM DISK 

1320 SOSUB 2408: REN ENTER PRICE, QUANTITY ft UPDATE FILE 

1330 SOSUB 52O0: REN WRITE UPDATED FILE ON DISK 

1340 SOSUB 5600: REN PRINT TABLE 

1350 SOSUB 6200: REN HOLD SCREEN 

1360 RETURN : REM RETURN TO MENU 

1370 : 

1400 REN =ZERO PRICE, QUANTITY, VALUE ft WRITE FILE*** 

1410 SOSUB 5400: REN READ FILE FROM DISK 

1420 SOSUB 5000: REM ZERO P, Q ft V 

1430 SOSUB 5200: REM WRITE ZEROED FILE ON DISK 

1440 SOSUB 5608: REM PRINT TABLE 

1450 SOSUB 6200: REM HOLD SCREEN 

1460 RETURN : REN RETURN TO MENU 

1470 : 

1500 REN **SORT BY PRICE ft PRINT TABLE** 

1510 SOSUB 5400: REM READ FILE FROM DISK 
1520 SOSUB 2600: REN SORT BY PRICE 
1530 SOSUB 5600: REM PRINT TABLE 
1540 SOSUB 6280: REM HOLD SCREEN 
1590 RETURN : REM RETURN TO MENU 
1560 : 

2000 REN — ENTER NAMES ****** 

2010 PRINT “<80": REM “SHIFT/CLR/HOME” 

2020 PRINT “ENTER NAPES FOR PEW FILE" 

PRINT : PRINT 

2040 INPUT "HIM MANY NAMES WILL YOU ENTER";N 

2050 LET WEEK * 0 

2060 PRINT 

2070 FOR I * 1 TO N 

20B0 PRINT Ij TAB(5);: INPUT NAPE$(I) 

2090 NEXT I 
2100 RETURN 
2110 : 
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ESN REM = SORT BY NAME ===== 

2210 FOR I = 1 TO N - l 
2220 FOR J = I + 1 TO N 

2230 IF NAME*!I) > NAME*(J) THEN 60SUB 2800 : REM SNAP NAMES, P, Q & V 

2240 NEXT J 

2250 NEXT I 

2260 RETURN 

2270 : 

2400 REM == ENTER PRICE, QUANTITY & UPDATE == 

2410 PRINT "-CSO-s REM "SHIFT/CLR/HOPE* 1 
2420 LET WEEK = WEEK + 1 

2430 PRINT s PRINT "ENTER THE PRICE 4 QUANTITY" s PRINT 
2440 FOR I * 1 TO M 
2450 PRINT NAME*(I); 

2455 PRINT TAB(10);s IW>UT " PRICE"; PRICE(I) 

2456 PRINT TABU0);s INPUT “ QUANTITY"; QUANTITY(I) 

2460 LET V(I) = PRICE(I) * QUANTITY(I) 

2470 PRINT 
2480 NEXT I 
2490 RETURN 
2500 : 

2600 REM == = = == SORT BY PRICE ===== 

2610 FOR I = 1 TO N - 1 
2620 FOR J = I + 1 TO N 

2638 IF PRICE(I) < PRICE(J) Tt£N BOSUB 2800 : REM SWAP NAMES, P, Q 6 V 

2640 NEXT J 

2650 NEXT I 

2660 RETURN 

2670 : 

2800 REM = SWAP NAMES, PRICES, QUANTITIES ft VALUES — 

2810 LET T* = NAME*(I) 

2811 LET T1 = PRICE(I) 

2812 LET T2 = QUANTITY!I) 

2813 LET T3 = V(I) 

2820 LET NAME*!I) = NAME*!J) 

2821 LET PRICE(I) = PRICE(J) 

2822 LET QUANTITY!I) = QUANTITY(J) 

2823 LET V(I) = V(J> 

2830 LET NAME*(J) = T* 

2831 LET PRICE(J) = T1 

2832 LET QUANTITY!J) = T2 

2833 LET V(J) = T3 
2840 RETURN 

2850 8 
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9000 REM ===== ZERO P,Q ft V ===== 

5010 FOR I = 1 TO N 
5020 LET PRICE(I) = 0 
5030 LET QUANTITY(I) = 0 
5840 LET V(I) = 0 
SO50 NEXT I 
5060 LET MEEK = 0 
5070 RETURN 
5080 : 

5200 REM = WRITE FILE ON DISK = 

5210 PRINT "TSC>" : REM "SHIFT/CLR/HOME" 

5220 FOR I = 1 TO 10 s PRINT s NEXT I 

5230 PRINT TAB(10)“WRITING FILE TO DISK' 

5240 OPEN 3,8,3, "00:INVENTORY,SEQ,WRITE" 

5250 REM WRITE TO FILE 

5260 PRINT43, N 

5270 PRINT43, WEEK 

5280 FOR I = 1 TO N 

5290 PRINT03, NfiME$(I) 

5300 PRINT03, PRICE(I) 

5310 PRINT43, QUANTITY(I) 

5315 PRINT03, V(I) 

5320 NEXT I 
5330 CL0SE3 
5340 RETURN 

5400 REM = READ THE FILE === 

5410 PRINT °<SC>" : REM "SHIFT/CLR/HOME" 
5420 FOR I = 1 TO 10 : PRINT : NEXT I 
5430 PRINT TAB(10)"READING FILE FROM DISK" 
5440 OPEN 3,8,3, "INVENTORY,SEQ,READ" 

5450 REM READ FILE 
5480 IMJT03, N 
5470 INPUT43, WEEK 
5480 FOR I = 1 TO N 
5490 INPUT03, NAME*(I> 

5500 INPUT03, PRICE(I) 

5510 INPUT03, QUANTITY(I) 

5515 INPUT03, V(I) 

5520 ICXT I 
5530 CL0SE3 
5540 RETURN 
5550 : 




5600 REM ===== PRINT TABLE ===== 

5610 LET LINE*= "-" 

5620 PRINT "-(SO" : REM "SHIFT/CLR/HOME" 

5630 PRINT TAB(ll)“HARDWARE INVENTORY" 

5640 PRINT TAB(14)"FOR WEEK #" WEEK 
5650 PRINT LINE* 

5660 PRINT "NAME" TAB(14)“PRICE" TAB(22)"QUANTITY" TAB(32)"VALUE" 
5680 PRINT LINE* 

5690 FOR I - 1 TO N 

5700 PRINT NAME*(I) TAB(13) PRICE(I) TAB(21) QUANTITY(I) TAB(31) V(I) 
5710 NEXT I 
5720 PRINT LINE* 

5730 RETURN 
5740 : 

6000 REM == PRINT NOT AVAILABLE === 

6010 PRINT "{SC>" : REM “SHIFT/CLR/HOME* 

6020 FOR I = 1 TO 8 : PRINT : NEXT I 

6030 PRINT "SORRY, THIS OPTION IS NOT AVAILABLE YET" 

6040 FOR TIME = 1 TO 1080s NEXT TIME : REM TIME DELAY 
6050 RETURN 
6060 : 

6200 REM ===== HOLD SCREEN === = == 

6210 PRINT “<HM>" s REM "CLR/HOME’ 

6220 FOR 1=1 TO 10 

6230 PRINT "<CD>" s REM "CRSR DOWN* 

6240 NEXT I 

6250 INPUT "PRESS RETURN TO CONTINUE";C* 

6260 RETURN 
6270 : 

READY. 
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t PN* * "P-l®. 3 BASEBALL 0 
a MR® « a ROBERT N. BATESON 8 
3 OR® - ”9/14/05" 

1 ® REH *=» VARIABLES ===== 

11 REN C® * NENU INPUT CHARACTER 
18 REM C = MENU CHOICE NUMBER 
13 REH BELAY = TIME DELAY COUNTER 
20 REM FILE VARIABLES ====== 

81 REM N » l&JMBER OF NAi>ES IN THE FILE 
88 REH MEEK = MEEK NUMBER 

83 REH NAME®U) * LIST OF N&4ES 

84 REH BA(I) « CURRENT BATTING AVERAGES 
25 REH HITSil) * TOTAL HITS 

86 REM ABU) = TOTAL AT-BATS 

87 REH HITS = HITS FOR CURRENT WEEK 
80 REH AB * AT-BATS FOR CURRENT WEEK 

30 RQ4 =»== UTILITY VARIABLES ===== 

31 REH I 9 LOOP COUNTER 
38 REH J - LOOP COUNTER 

33 REH LIME® = A ROW OF DASHES 

34 REH T® = TEMPORARY SORT VARIABLE 

35 REM II =» TEMPORARY SORT VARIABLE 

36 REH TS * TEMPORARY SORT VARIABLE 

37 REH T3 = TEMPORARY SORT VARIABLE 

40 REH = DEFINED FUNCTIONS ===== 

47 REH FUNCTION D ROUNDS TO 3 PLACES 
40 DEF FW BOO = INT(1860*X+®.5>/1880 
SB m M = INITIALIZATION ===== 

51 DIM NAME®(IBB),BA(IBB),HITS(IBB),AB( 10 B) 

59 i 

IBB REH ====== MENU = = = === 

181 PRINT "<SC>" s REM "SHIFT/CLR/HOME" 

188 PRINT TAB (88 - (LEN (PN*> / 2)) PN* 

116 PRINT TAB(18) 5 "MENU" 

188 PRINT s PRINT “lo ENTER NAMES & START NEW FILE" 

138 PRINT s PRINT "8. READ FILE ft PRINT TABLE" 

14® PRINT s PRINT "3. ENTER HITS, AT-BATS<SS>& UPDATE FILE" 

156 PRINT 8 PRINT "4. ZERO ft WRITE FILE" 

166 PRINT 8 PRINT "5. SORT BY BATTING AVERAGE, PRINT TABLE” 
178 PRINT 8 PRINT "6. END PROGRAM" 

108 PRINT 8 PRINT s PRINT 8 PRINT TAB(3) 

198 REH SET USERS CHOICE 

808 INPUT "ENTER THE NUMBER OF YOUR CHOICE ";C® 

818 LET C = VAL <C®) 

88® REH HAKE SURE CHOICE IS VALID 
83® PRINT 8 PRINT 

84® IF C > 8 AMD C < 7 AND INT (C) = C THEN 60T0 808 
85® PRINT "I RESPOND ONLY TO INTEGERS FROM 1 TO 6" 

868 FOR DELAY = 1 TO 188® 3 NEXT DELAY 
878 GOTO 108 

808 ON C 60SUB 1188,12BB,13BB,1408,1500, 308 
898 GOTO 18B 

388 PRINT "GOODBYE" s END 
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lift REM =ENTER NAMES & START NEW FILE* 
me GOSUB SN0 : REM ENTER NAMES 
use 60SUB 2See : REM SORT NAMES 
1138 GOSUB seee : REM ZERO STATS 
114f 60SUB 5208 : REM WRITE FILE ON DISK 
115e 60SUB 5600 : REM PRINT TABLE 
1160 60SUB 6200 : REM HOLD SCREEN 
1170 RETURN s REM RETURN TO MENU 

use i 

lsee REM ==READ FILE & PRINT TABLE*** 

1210 GOSUB 5400 :REM READ FILE FROM DISK 
1220 60SUB 5600s REM PRINT TABLE 
1230 GOSUB 6200: REM HOLD SCREEN 
1831 PRINT "FOR EACH ITEM" s PRINT 
1240 RETURN i REM RETURN TO MENU 
1250 : 

1300 REM =ENTER HITS, AT-BATS & UPDATE FILE- 

1310 GOSUB 5400s REM READ FILE FROM DISK 

1320 GOSUB 2400: REM ENTER HITS, AT-BAT & UPDATE FILE 

1330 GOSUB 5200s REM WRITE UPDATED FILE ON DISK 

1340 60SUB 5600: REM PRINT TABLE 

1350 GOSUB 6200: REM HOLD SCREEN 

1360 RETURN : REM RETURN TO MENU 

1370 s 

1400 REM =*=ZERO BATTING AVERAGE, HITS & AT-BATS =* 

1410 GOSUB 5400s REM READ FILE FROM DISK 

1420 GOSUB 5000: REM ZERO BA, HITS & AB 

1430 GOSUB 5200: REM WRITE ZEROED FILE ON DISK 

1440 GOSUB 5600: REM PRINT TABLE 

1450 GOSUB 6200: REM HOLD SCREEN 

1460 RETURN : REM RETURN TO MENU 

1470 : 

1500 REM **SORT BY BATTING AVERAGE & PRINT TABLE** 

1510 GOSUB 5400: REM READ FILE FROM DISK 

1520 GOSUB 2600: REM SORT BY BATTING AVERAGE 

1530 GOSUB 5600: MEM PRINT TABLE 

1540 GOSUB 6200: ISM HOLD SCREEN 

1550 RETURN : REM RETURN TO MENU 

1560 : 

2000 REM ****** ENTER NAMES =*===* 

2010 PRINT "<SC>": ISM “SHIFT/CLR/HQME" 

2020 PRINT "ENTER NAMES FOR NEW FILE" 

2030 PRINT : PRINT 

2040 INPUT "HOW MANY NAMES WILL YOU ENTER"$N 
2050 LET WEEK * @ 

2060 PRINT 
2070 FOR I * 1 TO N 
208O PRINT I; TAB(5);: INPUT NAME*(D 
2090 NEXT 1 
2100 RETURN 
2110 : 
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2200 REM ===== SORT BY NAME == 

2210 FOR I = 1 TO N - 1 
2220 FOR J = I + 1 TO N 

2230 IF NA»E*(I) > NAME4U) THEN BOSUB 2800 : REM SWAP NAfCS 

2240 NEXT J 

2250 NEXT I 

2260 RETURN 

2270 i 

2400 REM = ENTER HITS, AT-BATS ft UPDATE = 

2410 PRINT "{SC}": REM "SHIFT/CLR/HOME" 

2420 LET WEEK = WEEK + 1 

2430 PRINT s PRINT "ENTER THE HITS ft AT-BATS FOR" 

2431 PRINT “EACH PLAYER" s PRINT 
2440 FOR I » 1 TO N 

2450 PRINT NAMEO(I)] 

2455 PRINT TAB(12)IWMJT" HITS"jHITS 
2458 PRINT TAB(12);s INPUT "AT-BATS";AB 
2460 LET HITS(I) = HITS(I) + HITS 
2465 LET AB(I) - AB(I) + AB 
2470 LET BA(I) = FN D(HITS(I)/AB(I)) 

2475 PRINT 
2480 NEXT I 
2490 RETURN 
2500 : 

2600 REM = = = == SORT BY BATTING AVERAGE ===== 

2610 FOR I = 1 TO N - 1 
2620 FOR J = I + 1 TO N 

2630 IF BA(I) < BA(J) THEN 60SUB 2800 : REM SWAP NAMES, BA, HITS ft AB 

2640 NEXT J 

2650 NEXT I 

2660 RETURN 

2670 s 

2808 REM = SWAP NAMES AND STATISTICS === 

2810 LET T* = NAME*(I) 

2811 LET T1 = BA(I) 

2812 LET T2 » HITS(I) 

2813 LET T3 = AB(I> 

2820 LET NAMEOtl) = NAMEOU) 

2821 LET BA(I) = BA(J) 

2822 LET HITS(I) = HITS(J) 

2823 LET AB(I) = ABU) 

2830 LET NAME$(J) = T$ 

2831 LET BA(J) = T1 

2832 LET HITS(J) = T2 

2833 LET ABU) = T3 
2840 RETURN 

2850 : 



sees REM —» ZERO STATISTICS ====== 

seie FOR I = 1 TO N 
3828 LET BA(I> = 8 
5838 LET HITS(I) = 8 
3848 LET AB(I) = 8 
3858 NEXT I 
S8S8 LET WEEK = 8 
3878 RETURN 
3888 s 

3288 REM == WRITE FILE ON DISK ==== 

3218 PRINT "<SC>“ s REM "SHIFT/CLR/HOME" 

3228 FOR 1 = 1 TO 18 : PRINT : NEXT I 
5238 PRINT TAB(18)"WRITING FILE TO DISK* 

3248 OPEN 3,8,3, " 88 (BASEBALL STATS,SEQ, WRITE" 

3238 REM WRITE TO FILE 

5268 PRINT43, N 

3278 PRINT83, WEEK 

3288 FOR I * 1 TO N 

3298 PRINT83, NAMES(I) 

5380 PRINT83, BA(I) 

3318 PRINT43, HITS(I) 

3313 PRINT83, ABU) 

3328 NEXT I 
3338 CL0SE3 
5348 RETURN 

3400 REM === READ THE FILE === 

5418 PRINT "<SC>" : REM "SHIFT/CLR/HOME" 

5428 FOR I *» 1 TO 18 : PRINT : NEXT I 
3438 PRINT TAB(10)“READING FILE FROM DISK" 

5440 OPEN 3 y 8 t 3, "BASEBALL STATS,SEQ,READ" 

5438 REM READ FILE 

3468 IMMJT83, N 

5478 INPUT83, WEEK 

3488 FOR I » 1 TO N 

3498 INPUT83, NAMES(I) 

5588 INPUT43, BA(I) 

3518 INPUT43, HITS!I) 

3513 INPUT43, AB(I) 

3528 NEXT I 
3538 CL0SE3 
3540 RETURN 
3530 : 
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5680 REM ===== PRINT TABLE ===== 

5610 LET LINE*= “-« 

5620 PRINT "<SC>" s REM "SHIFT/CLR/HOME" 

5630 PRINT TAB(9)"BASEBALL STATISTICS" 

5640 PRINT TAB(14)“FOR WEEK #" WEEK 
5650 PRINT LINE* 

5660 PRINT TAB(14)“BATTING" TAB(24)“TOTAL" TAB(32)"TOTAL" 

5665 PRINT "NAME" TAB(14)"AVERA6E" TAB(24)"HITS" TAB<32)"AT-BATS" 

5680 PRINT LINE* 

5690 FOR I = 1 TO N 

5700 PRINT NAME*(I) TAB(13) BA(I) TAB(23) HITS(l) TAB(31) AB(I> 
5710 NEXT I 
5720 PRINT LINE* 

5730 RETURN 
5740 : 

6000 REM =*= PRINT NOT AVAILABLE = 

6010 PRINT "{SC>“ s REM "SHIFT/CLR/HOME" 

6020 FOR I = 1 TO 8 s PRINT s NEXT I 

6030 PRINT "SORRY, THIS OPTION IS NOT AVAILABLE YET" 

6040 FOR TINE = 1 TO 1000: NEXT TIME : REM TIME DELAY 
6050 RETURN 
6060 : 

6200 REM === TOLD SCREEN = ==== 

6210 PRINT "OW>" : REM "CLR/HOME" 

6220 FOR I = 1 TO 10 

6230 PRINT "TCDT" : REM "CRSR DOWN- 

6240 NEXT I 

6250 INPUT “PRESS RETURN TO CONTINUE"jC* 

6260 RETURN 
6270 : 

READY. 
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1 PN$ = "P-10.4 PAYROLL" 

2 NA* = "ROBERT N. BATESON" 

3 DA* = "9/14/85“ 

10 REM ===== VARIABLES ===== 

11 REM C* = MENU INPUT CHARACTER 

12 REM C = MENU CHOICE NUMBER 

13 REM DELAY = TIME DELAY COUNTER 

20 REM ======= FILE VARIABLES = ==== = 

21 REM N = NUMBER OF NAMES IN THE FILE 

22 REM MEEK = WEEK NUMBER 

23 REM NAME*(I) = LIST OF NAMES 

24 REM WAGE(I) = WAGE RATES 

25 REM PAY(I) = PAY FOR THE WEEK 

26 REM TPAY(I) = TOTAL PAY FOR THE YEAR 

27 REM HOURS = HOURS WORKED DURING WEEK 

30 REM ====== UTILITY VARIABLES ===== 

31 REM I = LOOP COUNTER 

32 REM J = LOOP COUNTER 

33 REM LINE* = A ROW OF DASHES 

34 REM T* = TEMPORARY SORT VARIABLE 

35 REM T1 = TEMPORARY SORT VARIABLE 

36 REM T2 = TEMPORARY SORT VARIABLE 

37 REM T3 = TEMPORARY SORT VARIABLE 

40 REM ===== DEFINED FUNCTIONS ===== 

45 REM FUNCTION C ROUNDS TO 3 PLACES 

46 DEF FN C(X) = INT(100*X+0.5)/100 

50 REM ===== INITIALIZATION ===== 

51 DIM NAME*(100),WAGE(100),PAY(100),TPAY(100) 

59 : 

100 REM ========== MENU ======== == 

101 PRINT ”{SC>" : REM "SHIFT/CLR/HOME" 

102 PRINT TAB(20 - (LEN <PN*) / 2)) PN* 

110 PRINT TAB(IB){"MENU" 

120 PRINT : PRINT "1. ENTER NAMES ft START NEW FILE" 
130 PRINT : PRINT "2. READ FILE * PRINT TABLE" 

140 PRINT : PRINT "3. ENTER HOURS & UPDATE FILE" 

150 PRINT : PRINT “4. ZERO & WRITE FILE" 

160 PRINT : PRINT "5. SORT BY PAY FOR THE WEEK" 

170 PRINT : PRINT "6. END PROGRAM" 

180 PRINT : PRINT : PRINT s PRINT TAB(3) 

190 REM GET USERS CHOICE 

200 INPUT “ENTER THE NUMBER OF YOUR CHOICE ";C* 

210 LET C = VAL <C») 

220 REM MAKE SURE CHOICE IS VALID 
230 PRINT : PRINT 

240 IF C > 0 AND C < 7 AND INT (C) = C THEN GOTO 280 
250 PRINT "I RESPOND ONLY TO INTEGERS FROM 1 TO 6" 
260 FOR DELAY = 1 TO 1000 s NEXT DELAY 
270 GOTO 100 

280 ON C GOSUB 1100,1200,1300,1400,1500,300 
290 GOTO 100 

300 PRINT "GOODBYE" : END 
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1188 REM =ENTER NAMES ft START NEW FILE= 

1118 GOSUB 2888 : REM ENTER NAMES 
1128 GOSUB 2288 : REM SORT NAMES 
1138 GOSUB 5880 : REM ZERO PAY 
1140 GOSUB 5288 : REM WRITE FILE ON DISK 
1150 GOSUB 5600 : REM PRINT TABLE 
1168 GOSUB 6208 : REM HOLD SCREEN 
1170 RETURN : REM RETURN TO MENU 
1188 : 

1288 REM =—READ FILE ft PRINT TABLE= 

1218 GOSUB 5480 :REM READ FILE FROM DISK 
1220 GOSUB 5600: REM PRINT TABLE 

1230 GOSUB 6200: REM HOLD SCREEN 

1231 PRINT "FOR EACH ITEM" : PRINT 
1248 RETURN : REM RETURN TO IENU 
1258 : 

1300 REM —ENTER HOURS ft UPDATE FILE== 

1310 GOSUB 5400: REM READ FILE FROM DISK 

1320 GOSUB 2400: REN ENTER HOURS ft UPDATE FILE 

1330 GOSUB 5200: REM WRITE UPDATED FILE ON DISK 

1340 GOSUB 5600: REM PRINT TABLE 

1350 GOSUB 6200: REM HOLD SCREEN 

1360 RETURN : REM RETURN TO MENU 

1370 : 

1400 REM ===PAY ft TOTAL PAY = 

1410 GOSUB 5400: REM READ FILE FROM DISK 

1420 GOSUB 5000: REM ZERO PAY ft TPAY 

1430 GOSUB 5200: REM WRITE ZERDED FILE ON DISK 

1440 GOSUB 5600: REM PRINT TABLE 

1450 GOSUB 6200: REM HOLD SCREEN 

1460 RETURN : REM RETURN TO MENU 

1470 : 

1500 REM ==SORT BY PAY FOR THE WEEK ft PRINT TABLE= 

1510 GOSUB 5400: REM READ FILE FROM DISK 

1520 GOSUB 2600: REN SORT BY WEEKLY MY 

1530 GOSUB 5600: REM PRINT TABLE 

1540 GOSUB 6200: REM HOLD SCREEN 

1550 RETURN : REM RETURN TO MENU 

1560 : 

2000 REM === ENTER NAMES ft WAGE RATES ===== 

2010 PRINT "TSC>“: REM "SHIFT/CLR/HOfC" 

2020 PRINT "ENTER NAMES AND WAGE RATES" 

2025 PRINT "FOR A NEW FILE" 

2830 PRINT : PRINT 

2040 INPUT "HOW MANY NAPES WILL YOU ENTER";N 

2050 LET WEEK = 0 

2060 PRINT 

2070 FOR I = 1 TO N 

2088 PRINT I; TAB(5) ;: IWHJT NAPE*(I) 

2885 INPUT " WAGE RATE";WASE<I) 

2086 PRINT 
20% NEXT I 
2100 RETURN 
2110 : 
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2200 REM ==== SORT BY NOME ===== 

2210 FOR I = 1 TO N - 1 
2220 FOR J = I + 1 TO N 

2230 IF NOME*(I) > NAME*(J> THEN GOSUB 2800 : REM SWOP NAMES 8 ALL NUMBERS 

2240 NEXT J 

2250 NEXT I 

2260 RETURN 

2270 : 

2400 REM = ENTER HOURS ft UPDATE = 

2410 PRINT "<SC>“: REM “SHIFT/CLR/HOME" 

2420 LET WEEK = WEEK + 1 

2430 PRINT s PRINT "ENTER THE HOURS FOR EACH EMPLOYEE" 

2435 PRINT 

2440 FOR I = 1 TO N 

2450 PRINT NAME*(I); 

2455 PRINT TAB(12);: INPUT“HOURS n ;HOURS 

2460 IF HOURS <= 40 THEN PAY(I) = HOURS • UAGE(I) 

2465 IF HOURS > 40 THEN PAY(I) = 40 * WAGE(I) + (HOURS - 40) * 1.5 * WAGE(I) 
2470 LET TPAY(I) = TPAY(I) + PAY(I) 

2475 PRINT 
2480 NEXT I 
2490 RETURN 
2500 : 

£600 REM ===== SORT BY WEEKLY PAY ===== 

2610 FOR I = 1 TO N - 1 
2620 FOR J = I + 1 TO N 

2638 IF PAY(I) < PAY(J) Tt£N GOSUB 2800 : REM SIMP NAMES ft ALL NUMBERS 

2640 NEXT J 

2650 NEXT I 

2660 RETURN 

2670 : 

2800 REM = SWAP NAMES, WAGE RATES, PAY ft TOTAL MY == 

2810 LET T* = NOME*(I) 

2811 LET T1 = WAGE(I) 

2812 LET T2 = PAY(I) 

2813 LET T3 = TPAY(I) 

2820 LET NAME*(I) = NOME*(J) 

2821 LET WAGE(I) = WOGE(J) 

2822 LET POY(I) = PAY(J) 

£823 LET TPAY(I) = TPAY(J) 

2830 LET NAME*(J) = T* 

2831 LET WAGE(J) = T1 

2832 LET POY(J) = T2 

2833 LET TPAY(J) = T3 
2840 RETURN 

2850 : 
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5008 REM ===== ZERO PAY & TOTAL PAY == 
501® FOR I = 1 TO I 
5030 LET PAY(I) = 0 
5040 LET TPAY(I) * @ 

5050 NEXT I 
5060 LET MEEK - 8 
5O70 RETURN 
5000 : 

5208 REM ===== WRITE FILE ON DISK ===== 

5210 PRINT °{SC> B s REM “SHIFT/CLR/HOME* 

5220 FOR I = 1 TO 10 t PRINT s NEXT I 

5230 PRINT TAB<10)“WRITING FILE TO DISK’ 

5240 OPEN 3,0,3, “@0sPAYROLL,SEQ,WRITE" 

5250 REM WRITE TO FILE 

5260 PRINT83, N 

5270 PRINT03, WEEK 

5200 FOR I = 1 TO N 

5290 PRINTS3, NAME«(I) 

5300 PRINT43, WAGE(I) 

5310 PRINTS3, PAY(I) 

5315 PRINT83, TPAY(I) 

5320 NEXT I 
5338 CL0SE3 
5340 RETURN 

5400 REM == READ THE FILE ===== 

5410 PRINT “TSC>” s REM “SHIFT/CLR/HOME’ 
5420 FOR I = 1 TO 10 s PRINT s NEXT I 
5430 PRINT TAB(10)"READIMS FILE FROM DISK’ 
5440 OPEN 3,0,3, “PAYROLL,SEQ,READ’ 

5450 REM READ FILE 
5468 INPUT03, N 
547© INPUT#3, WEEK 
5400 FOR I = 1 TO N 
5490 INPUT#3, NAM£$(I) 

5500 INPUT33, WAGE(I) 

5510 INPUT#3, PAY(I) 

5515 INPUT83, TPAY(I) 

5520 NEXT I 
5530 CL0SE3 
5540 RETURN 
5550 : 
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5600 REM ===== PRINT TABLE ===== 

5610 LET LINE* 8 -- a 

5620 PRINT "-CSC}" s REM "SHIFT/CLR/HOME" 

5630 PRINT TAB(16)PAYROLL 3 
5640 PRINT TAB(14)"FOR WEEK #“ MEEK 
5650 PRINT LINE* 

5660 PRINT "EMPLOYEE" TAB(12)"WAGE" TAB(20)"PAY" TAB(31)"PAY" 

5665 PRINT “NAME" TAB(12)"RATE" TAB(20)“FOR MEEK" TAB(31)“FOR YEAR" 
5680 PRINT LINE* 

5690 FOR I = 1 TO N 

5700 PRINT NAME*(I) TAB(ll) WAGE(I) TAB(19) PAY(I) TAB(38) TPAY(I) 
5710 NEXT I 
5720 PRINT LINE* 

5730 RETURN 
5740 : 

6000 REM == PRINT NOT AVAILABLE = 

6010 PRINT "-CSC}“ s REM "SHIFT/CLR/HOME" 

6020 FOR I = 1 TO 8 s PRINT s NEXT I 

6030 PRINT "SORRY, THIS OPTION IS NOT AVAILABLE YET" 

6O40 FOR TIME = 1 TO 1000s NEXT TIME s REM TINE BELAY 
6050 RETURN 
6060 : 

6200 REM ===== HOLD SCREEN ===== 

6210 PRINT s REM "CLR/HOME® 

6220 FOR I = 1 TO 10 

6230 PRINT "■CCD}" s REM "CRSR DOWN" 

6240 NEXT I 

6250 INPUT "PRESS RETURN TO CONTINUE";C* 

6260 RETURN 
6270 : 

READY. 
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1 PN* = "P-10.5 GRADES" 

2 NO* = "ROBERT N. BATESON" 

3 DA* = "9/14/85" 

10 RE« ===== VARIABLES ===== 

11 REM C* = MENU INPUT CHARACTER 

12 REM C = MENU CHOICE NUMBER 

13 REM DELAY = TIME DELAY COUNTER 

20 REM ======= FILE VARIABLES ===== 

21 REM N = NUMBER OF NAMES IN THE FILE 

22 REM WEEK = WEEK NUMBER 

23 REM NOME*(I) = LIST OF NAMES 

24 REM MARK(I) = THIS WEEK’S EXAM SCORE 

25 REM TS(I) = TOTAL SCORE FOR TERM 

26 REM G*(I) = LETTER 6RADE 

27 REM AVG = AVERAGE SCORE 

30 REM === UTILITY VARIABLES ===== 

31 REM I = LOOP COUNTER 

32 REM J = LOOP COUNTER 

33 REM LINE* = A ROW OF DASHES 

34 REM Tl* = TEMPORARY SORT VARIABLE 

35 REM T2* = TEMPORARY SORT VARIABLE 

36 REM Tl = TEMPORARY SORT VARIABLE 

37 REM T2 = TEMPORARY SORT VARIABLE 

40 REM ===== DEFINED FUNCTIONS ===== 

44 REM FUNCTION B ROUNDS TO 1 PLACE 

45 DEF FN B(X> = INT(10*X+0.5)/10 

58 REM === INITIALIZATION ===== 

51 DIM NAME*(100),MARK(100),TS(100),6*(100) 

59 : 

100 REM ========= MENU ======= 

101 PRINT “-CSC}" : REM "SHIFT/CLR/HOME" 

102 PRINT TAB(20 - (LEN (PN*) / 2)) PN* 

110 PRINT TAB(18);"MENU" 

120 PRINT : PRINT "1. ENTER NAfES ft START NEW FILE" 

130 PRINT : PRINT “2. READ FILE ft PRINT TABLE" 

140 PRINT : PRINT "3. ENTER SCORES ft UPDATE FILE" 

150 PRINT : PRINT "4. ZERO ft WRITE FILE" 

160 PRINT s PRINT "5. SORT BY TOTAL SCORE ft PRINT TABLE" 
170 PRINT : PRINT "6. END PR06RAN" 

180 PRINT : PRINT s PRINT i PRINT TAB(3) 

190 REM GET USERS CHOICE 

200 INPUT "ENTER THE NUMBER OF YOUR CHOICE ";C* 

210 LET C = VAL (C*) 

220 REM MAKE SURE CHOICE IS VALID 
230 PRINT : PRINT 

£40 IF C > 0 AND C ( 7 AND INT (C) = C THEN GOTO 280 
250 PRINT "I RESPOND ONLY TO INTEGERS FROM 1 TO 6" 

260 FOR DELAY = 1 TO 1000 : NEXT DELAY 
270 GOTO 100 

280 ON C GOSUB 1100,1200,1300,1400,1500,300 
290 GOTO 180 

300 PRINT "GOODBYE" : END 







133 


1100 REM =ENTER NAMES ft START NEW FILE= 

1110 60SUB 2000 : REM ENTER NAMES 
1120 GOSUB 2200 : REM SORT NAMES 
1130 60SUB 5000 : REM ZERO SCORES 
1140 GOSUB 5200 : REM WRITE FILE ON DISK 
1150 GOSUB 5S00 : REM PRINT TABLE 
1160 GOSUB 6200 : REM HOLD SCREEN 
1170 RETURN : REM RETURN TO MENU 
1160 : 

1200 REM ==READ FILE ft PRINT TABLE®*® 

1210 GOSUB 5400 :REM READ FILE FROM DISK 
1220 GOSUB 5600s REM PRINT TABLE 

1230 GOSUB 6200: REM HOLD SCREEN 

1231 PRINT "FOR EACH ITEM" s PRINT 
1240 RETURN : REM RETURN TO MENU 
1250 : 

1300 REM =ENTER EXAM SCORES ft UPDATE FILE®® 

1310 GOSUB 5400: REM READ FILE FROM DISK 

1320 GOSUB 2400: REM ENTER EXAM SCORES ft UPDATE FILE 

1330 GOSUB 5200: REM WRITE UPDATED FILE ON DISK 

1340 GOSUB 5600: REM PRINT TABLE 

1350 GOSUB 6200: REM HOLD SCREEN 

1360 RETURN : REM RETURN TO MENU 

1370 : 

1400 REM =®*ZERQ SCORES =** 

1410 GOSUB 5400: REM READ FILE FROM DISK 

1420 GOSUB 5000: REM ZERO SCORES 

1430 GOSUB 5200: REM WRITE ZEROED FILE ON DISK 

1440 GOSUB 5600: REM PRINT TABLE 

1450 GOSUB 6200: REM HOLD SCREEN 

1460 RETURN : REM RETURN TO MENU 

1470 : 

1500 REM =SORT BY TOTAL SCORE®® 

1510 GOSUB 5400: REM READ FILE FROM DISK 
1520 GOSUB 2600: REM SORT BY TOTAL SCORE 
1530 GOSUB 5600: REM PRINT TABLE 
1540 GOSUB 6200: MEM HOLD SCREEN 
1550 RETURN : REM RETURN TO JCNU 
1560 : 

2000 REM ===== ENTER NAMES ==== = 

2010 PRINT "<SC>": REM "SHIFT/CLR/HOME" 

2020 PRINT "ENTER NAMES FOR NEW FILE” 

2030 PRINT : PRINT 

2040 INPUT "HOW MANY NAMES WILL YOU ENTER";N 

2050 LET WEEK = 0 

2060 PRINT 

2070 FOR I = 1 TO N 

2060 PRINT I; TAB(5);: INPUT NAME*(I) 

20% NEXT I 
2100 RETURN 
2110 : 
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£200 REM == SORT BY NfttE == 

£210 FOR I = 1 TO N - 1 
2220 FOR J = I + 1 TO N 

2230 IF NAME*(I) > NAME*(J) TIEN GOSUB 2800 : REM SWAP NA1ES, SCORES & GRADES 

2240 NEXT J 

2250 NEXT I 

2260 RETURN 

2270 : 

2400 REM = ENTER EXAM SCORES & UPDATE == 

2410 PRINT °<SC>": REM "SHIFT/CLR/HOME" 

2420 LET WEEK = WEEK + 1 

2430 PRINT s PRINT “ENTER TIE EXAM SCORES FOR EACH STUDENT" : PRINT 

£440 FOR I = 1 TO N 

2450 PRINT NAME*(I); TAB(12); 

£455 INPUT "SCORE"; MARK(I) s PRINT 
2460 LET TS(I) = TS(I> + MARK(I) 

£465 LET AB(I) = AB(I> + AB 
£470 LET AVG = TS(I) / WEEK 

2471 IF AVG )= 95 THEN 6*<I> = "A" 

2472 IF AVG < 95 AND AVG > = 85 THEN G*(I) = "B" 

£473 IF AVG < 85 AND AVG >= 70 THEN S*(I) = “C” 

£474 IF AVG ( 70 AND AVG >= 60 THEN G*(I) = »D" 

2475 IF AVG < 60 THEN G*(I> = “F" 

2480 NEXT I 
2490 RETURN 
2500 : 

2600 REM ===== SORT BY TOTAL SCORE ====== 

2610 FOR I = 1 TO N - 1 
2620 FOR J = I + 1 TO N 

2630 IF TS(I) < TS(J) TIEN GOSUB 2800 : REM SWAP NAMES, SCORES & GRADES 

2640 NEXT J 

2650 NEXT I 

£660 RETURN 

2670 : 

2800 REM =SWAP NAMES, SCORES * 6RADES== 

2810 LET Tl* = NAME*(I) 

2811 LET Tl = MARK(I) 

2812 LET T2 = TS<I> 

2813 LET T2* = G*(I) 

2820 LET NAME*<I) = NAME*(J) 

2821 LET MARK(I) = MARK(J) 

2822 LET TS(I) = TS(J) 

2823 LET G*(I) = G*(J) 

2830 LET NAME*(J) = Tl* 

£831 LET MARK(J) = Tl 
£832 LET TS(J) = T2 
2833 LET G*(J) = TP* 

2840 RETURN 

£850 : 
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528® REM ===== ZERO SCORES ft GRADES ===== 

5010 FOR 1 = 1 TO N 

5020 LET MARK(I) = 0 

503O LET TS(I) = 0 

5840 LET G*(I> = " " 

5050 NEXT I 
5060 LET WEEK = 0 
5070 RETURN 
5080 : 

5280 REM ===== WRITE FILE ON DISK === 

5210 PRINT n {SC>" 8 REM "SHIFT/CLR/H0ME 0 
5220 FOR I = 1 TO 10 s PRINT 8 NEXT I 
5230 PRINT TAB(10)"WRITING FILE TO DISK 0 
5240 OPEN 3,8,3, "00sGRADES,SEQ,WRITE" 

5250 REM WRITE TO FILE 
5260 PRINT03, N 
5270 PRINT#3, WEEK 
5288 FOR I = 1 TO N 
5298 PRINT43, NAMES(I) 

5308 PRINT03, MARK(I) 

5318 PRINT03, TS(I) 

5315 PRINT#3, G*(I) 

5328 NEXT I 
5330 CL0SE3 
5348 RETURN 

5408 REM ===== READ THE FILE ===== 

5410 PRINT "<SC>" s REM "SHIFT/CLR/HOME" 
5420 FOR I = 1 TO 10 s PRINT i I*EXT I 
5430 PRINT TABU0) "FADING FILE FROM DISK" 
5440 OPEN 3,8,3, "GRADES,SEQ,READ" 

5450 REM READ FILE 
5460 INPUT03, N 
5470 INPUT#3, WEEK 
5480 FOR I = 1 TO N 
5490 INPUT03, NAMES(I) 

5588 INPUT03, MARK(I) 

5510 INPUT03, TS(I) 

5515 INPUT03, GS(I) 

5520 NEXT I 
5538 CL0SE3 
5540 RETURN 
5550 * 
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5600 REM ===== PRINT TABLE ===== 

5610 LET LINE*= "-- 

5620 PRINT "-CSO" s REM "SHIFT/CLR/HOCE” 

5630 PRINT TAB (15) "6RADES" 

5640 PRINT TAB(12)"FOR WEEK «" WEEK 
5650 PRINT LINE* 

5660 PRINT TAB(14)"WEEKLY" TAB(22)"AVERAGE” 

5665 PRINT "NAME" TAB(14)"SCORE" TAB(22)"SCORE" TAB(30)"GRADE" 
5680 PRINT LII&* 

5690 FOR I = 1 TO N 

5695 IF WEEKO0 THEN AVG = FN B(TS(I) / WEEK) 

5700 PRINT NAME*(I) TAB(13) MARK(I) TAB(21) AVG TAB(29) 6*(I) 
5710 NEXT I 
5720 PRINT LINE* 

5730 RETURN 
5740 : 

6000 REM == PRINT NOT AVAILABLE = 

6010 PRINT "{SO" : REM "SHIFT/CLR/HONE" 

6020 FOR I = 1 TO 8 s PRINT s NEXT I 

6030 PRINT "SORRY, THIS OPTION IS NOT AVAILABLE YET" 

6040 FOR TIME = 1 TO 1000: NEXT TIME : REM TIME DELAY 
6050 RETURN 
6060 : 

6200 REM === == WILD SCREEN ===== 

6210 PRINT "{W1>" : REM "CLR/HOME" 

6220 FOR I = 1 TO 10 

6230 PRINT "<CD>" : REM "CRSR DOWN" 

6240 NEXT I 

6250 INPUT "PRESS RETURN TO CONTINUE";C* 

6260 RETURN 
6270 : 

READY. 
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1 PN* = "P-11.1 GUN LEFT" 

2 NA$ = "ROBERT N. BATESON" 

3 DA* = "9/15/85" 

10 REM ===== VARIABLES ===== 

11 REM A = LEFT EDGE OF TARGET 

12 REM I = LOOP COUNTER 

13 REM J = LOOP COUNTER 

14 S = 54272 : REM SOUND CHIP LOCATION 

15 REM SP = SPEED OF THE TARGET 

16 REM SHOT = SHOT NUMBER 

17 REM T = TIME DELAY VARIABLE 

18 REM Z = DUMMY VARIABLE 

19 V = 53248 : REM VIDEO CHIP LOCATION 

20 H0 = V : REM SPRITE 0 HORIZONTAL 

21 V0 = V + 1 : REM SPRITE 0 VERTICAL 

22 HI = V + 2 : REM SPRITE 1 HORIZONTAL 

23 VI = V + 3 s REM SPRITE 1 VERTICAL 

29 : 

50 REM ===== DATA SECTION ====== 

60 REM SPRITE 0 DATA (TARGET) 

61 DATA 12,0,0, 30,0,0, 30,0,0 

62 DATA 63,0,0, 63,0,0, 63,0,0 

63 DATA 51,0,0, 51,0,0, 51,0,0 

64 DATA 51,0,0, 51,0,0, 51,0,0 

65 DATA 51,0,0, 51,0,0, 51,0,0 

66 DATA 63,0,0, 63,0,0, 63,0,0 

67 DATA 30,0,0, 30,0,0, 12,0,0 

69 ; 

70 REM SPRITE 1 DATA (MISSILE) 

71 DATA 0,0,0, 0,0,0, 0,0,0 

72 DATA 0,0,0, 0,0,0, 0,0,0 

73 DATA 0,0,0, 0,0,128, 0,0,252 

74 DATA 0,0,255, 0,0,255, 0,0,252 

75 DATA 0,0,128, 0,0,0, 0,0,0 

76 DATA 0,0,0, 0,0,0, 0,0,0 

77 DATA 0,0,0, 0,0,0, 0,0,0 
80 : 

100 REM ===== MAIN PROGRAM ===== 

110 GOSUB 900 : REM GET SPEED CHOICE 
120 GOSUB 200 ; REM SET UP SPRITES 
130 GOSUB 300 : REM DRAM GUN 

140 FOR SHOT = 1 TO 5 : GOSUB 400 : REM SHOW TARGET 
150 GOSUB 500 : REM FIRE SHOT & CHECK FOR HIT 
160 NEXT SHOT 

170 GOSUB 1000 : REM GIVE RESULTS 
180 END 

190 : 
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200 REM ===== SET UP THE SPRITES====== 

201 PRINT “<SC>“ : REM SHIFT CLR/HDME 

202 PRINT "{CDHCDXCDHCDHCDMCDHCDXCDMCDMCDJ" s REM CRSR DOWN 

203 PRINT TAB(ll)"SETTING UP SPRITES" 

210 REM PUT DATA FOR SPRITE 0 (TARGET) IN LOCATION 192*64 
220 FOR N = 0 TO 62: READ Q: POKE 192*64 + N, Q : NEXT N 
230 POKE 2040, 192 : REM DEFINE LOCATION OF SPRINT 0 
240 POKE V + 39, 1 : REM SET SPRITE 0 COLOR TO WHITE 
£50 REM PUT DATA FOR SPRITE 1 (MISSILE) IN LOCATION 193*62 
260 FOR N = 0 TO 62: READ Q: POKE 193*64 + N, Q : NEXT N 
270 POKE 2041, 193 : REM DEFINE LOCATION OF SPRITE 1 
260 POKE V+40,7: REM SET SPRITE 1 COLOR TO YELLOW 
290 RETURN 
299 : 

30® REM ==== DRAW GUN ==== 

305 PRINT "<SC>" : REM SHIFT CLR/HOME 

310 FOR I = 1 TO 8 : PRINT "-CCD>" j:f«XT : REM CRSR DOWN 

320 PRINT - 77%" : REM SPACE, COMM-Y, COMM-Y, COMM-G 

330 PRINT " %" : REM 3 SPACES, COMM-G 

340 PRINT " L///" : REM 3 SPACES, SHIFT-L, 3 COMM-P 

345 PRINT 

350 PRINT " 0777" : REM 3 SPACES, SHIFT-0, 3 COMM-O 

360 PRINT " %" : REM 3 SPACES, COMM-G 

370 PRINT " %" : REM 3 SPACES, COMM-6 

380 PRINT " 77" : REM SPACE, COMM-Y, COMM-Y 

390 RETURN 

399 : 

400 REM ==== SHOW TARGET ===== 

410 POKE V0,20 : POKE H0,255 : REM POSITION SPRITE 0 
420 POKE V + 21,1 : REM TURN ON SPRITE 0 
430 FOR A = 20 TO 255 STEP SP: POKE V0,A : REM MOVE DOWN 
440 IF PEEK (197) () 64 THEN RETURN : REM SHOT FIRED 
450 NEXT A 

460 FOR A = 255 TO 20 STEP -SP: POKE V0,A : REM MOVE UP 
470 IF PEEK (197) <> 64 THEN RETURN : REM SHOT FIRED 
480 NEXT A 

490 GOTO 430: REM LOOP BACK 
495 : 

500 REM ===== SHOOT = == = = 

510 POKE V + 30,0 : REM CLEAR COLLISION RESISTER 

520 POKE HI,30 : POKE VI, 140 : REM POSITION SPRITE 1 (MISSILE) 

530 POKE V + 21,3 : REM TURN ON KITH SPRITES 0 AND 1 

540 FOR I = 30 TO 255 STEP 2 : POKE HI,I : REM MOVE MISSILE TO RIGHT 

550 IF PEEK(V + 30) = 3 THEN GOSUB 600 : RETURN : REM HIT 

560 NEXT I 

565 IF PEEK (V+30) (> 3 THEN GOSUB 1100 : REM NO HIT 
570 RETURN 
580 : 
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600 REM ===== HIT ===== 

610 POKE V + 21,0 : REM TURN OFF ALL SPRITES 

620 LET HITS = HITS + 1 

630 60SUB 700 : REM MAKE SOUND 

640 RETURN 

650 : 

700 REM ===== SOUND ===== 

710 FOR J = S TO S+24 : POKE J,0 s NEXT : REM CLEAR SOUND CHIP 

720 POKE S+24,15 s REM SET VOLUME 

730 POKE S+5,0 : REM SET ATTACK/DECAY 

740 POKE S+6,240 : REM SET SUSTAIN/RELEASE 

750 POKE S+2,0 s POKE S+3,S s REM SET PULSE RATE 

760 FOR J = 1 TO 3 

770 POKE 2,15 : POKE S+1,67 : REM SET FREQUENCY TO C IN OCTAVE 6 
760 POKE S+4,65 s REM START THE NOTE 

790 FOR T = 1 TO 30 s NEXT T s REM DELAY WHILE THE NOTE PLAYS 
600 POKE S+4,64 s REM STOP THE NOTE 

610 POKE S, 30 s POKE S+1,134 s REM SET FREQUENCY TO C IN OCTAVE 7 
620 POKE S+4,65 s REM START THE NOTE 

830 FOR T = 1 TO 30 s NEXT T s REM DELAY WHILE THE NOTE PLAYS 
840 POKE S+4,64 : REM STOP THE NOTE 
650 NEXT J 

860 POKE S+224,0 : REM SET VOLUME TO 0 
870 RETURN 
880 : 

900 REM ==== BET SPEED CHOICE == 

905 PRINT "{SO" : REM SHIFT CLR/HOME 
910 PRINT 5 PRINT 

915 PRINT M SELECT THE TARGET SPEED" 

920 PRINT 

925 PRINT " ENTER A NUMBER FROM 1 TO 5 TO SET THE" 

930 PRINT " SPEED OF THE TARGET. A SPEED OF 1 IS" 

935 PRINT “ VERY SLOW AND A SPEED OF 5 IS FAST.■ 

940 PRINT 

950 INPUT " ENTER YOUR CHOICE (1 TO 5>";SP 
960 RETURN 
965 : 

1000 REM ===== GIVE RESULTS ===== 

1010 POKE V + 21,0 s REM TURN OFF ALL SPRITES 
1020 PRINT U {SC>" s REM "SHIFT - CLR/HOME" 

1030 PRINTsPRINTsPRINTsPRINTsPRINT 

1040 PRINT " HITS = M HITS 

1041 PRINT 

1042 IF HITS = 5 THEN PRINT " MASTER GUNNER" 

1043 IF HITS = 4 THEN PRINT " GOOD SHOOTING- 

1044 IF HITS = 3 THEN PRINT " YOU CAN DO BETTER" 

1045 IF HITS = 2 THEN PRINT " YOU NEED PRACTICE- 

1046 IF HITS = 1 THEN PRINT “ OH MY" 

1047 IF HITS = 0 THEN PRINT " WHAT CAN I SAY- 

1050 PRINT "{CDMCDMCDMCDKCDHCDKCDHCDXCDKCDJ" s REM CRSR DOWN 
1060 RETURN 
1070 : 
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1100 REM ===== NO HIT SOUND ===== 

1110 FOR J = S TO S+S4 : POKE J,0 : NEXT : REM CLEAR SOUND CHIP 

1120 POKE S+24,10 : REM SET VOLUME 

1130 POKE S+5,0 : REM SET ATTACK/DECAY 

1140 POKE S+6,240 : REM SET SUSTAIN/RELEASE 

1150 POKE S+2,0 : POKE S+3,8 : REM SET PULSE RATE 

1160 POKE 2,48 : POKE S+1,4 : REM SET FREQUENCY TO C IN OCTAVE 2 

1170 POKE S+4,65 : REM START THE NOTE 

1180 FOR T = 1 TO 180 : NEXT T : REM DELAY WHILE THE NOTE PLAYS 
1190 POKE S+4,64 : REM STOP THE NOTE 
1200 RETURN 
1210 : 

READY. 




1 PN$ = “P-11.2 BUN RIGHT" 

2 NA* = "ROBERT N. BATESON" 

3 OR* * "9/15/85" 

IQ REM ===== VARIABLES ===== 

11 REM R = LEFT EDGE OF TARGET 

12 REM I = LOOP COUNTER 

13 REN J = LOOP COUNTER 

14 S = 54272 : REM SOUND CHIP LOCATION 

15 REN SP = SPEED OF THE TARGET 

16 REM SHOT = SHOT NUMBER 

17 REM T = TIME DELAY VARIABLE 

18 REM Z = DUMMY VARIABLE 

19 V = 53248 : REM VIDEO CHIP LOCATION 

20 HO = V : REM SPRITE 0 HORIZONTAL 

21 VO = V + 1 : REM SPRITE 0 VERTICAL 

22 HI = V + 2 s REM SPRITE 1 HORIZONTAL 

23 VI = V + 3 : REM SPRITE 1 VERTICAL 

29 : 

SO REM === = = DATA SECTION ====== 

60 REM SPRITE 0 DATA (TARGET) 

61 DATA 12,0,0, 30,0,0, 30,0,0 

62 DATA 63,0,0, 63,0,0, 63,0,0 

63 DATA 51,0,0, 51,0,0, 51,0,0 

64 DATA 51,0,0, 51,0,0, 51,0,8 

65 DATA 51,0,0, 51,0,0, 51,0,0 

66 DATA 63,0,0, 63,0,0, 63,0,0 

67 DATA 30,0,0, 30,0,0, 12,0,0 

69 : 

70 REM SPRITE 1 DATA (MISSILE) 

71 DATA 0,0,0, 0,0,0, 0,0,0 

72 DATA 0,0,0, 0,0,0, 0,0,0 

73 DATA 0,0,0, 0,0,1, 0,0,63 

74 DATA 0,0,255, 0,0,255, 0,0,63 

75 DATA 0,0,1, 0,0,0, 0,0,0 

76 DATA 0,0,0, 0,0,0, 0,0,0 

77 DATA 0,0,0, 0,0,0, 0,0,0 
80 s 

100 REM ===== MAIN PROGRAM ===== 

110 60SUB 900 : REM BET SPEED CHOICE 
120 60SUB 200 : REM SET UP SPRITES 
130 60SUB 300 : REM DRAM GUN 

140 FOR SHOT = 1 TO 5 s GOSUB 400 : REM SHOW TARGET 
150 60SUB 500 : REM FIRE SHOT & CHECK FOR HIT 
160 NEXT SHOT 

170 GOSUB 1000 : REN GIVE RESULTS 
180 END 
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288 

281 

202 

203 

210 

220 

238 

240 

250 

260 

270 

260 

290 

299 

300 
305 
310 
320 
330 
340 
350 
360 
370 
380 
390 

399 

400 
410 
420 
430 
448 
450 

Afifl 

470 

460 

490 

495 

500 

510 

520 

530 

540 

550 

560 

565 

570 

568 


REM ====== SET UP THE SPRITES====== 

PRINT "{SCT" s REM SHIFT CLR/HQME 

PRINT “{CDXCDMCDXCDXCDHCDHCDXCDHCDHCD}” : REM CR5R DOWN 
PRINT TAB(ll)"SETTING UP SPRITES" 

REM PUT DATA FOR SPRITE 0 (TARSET) IN LOCATION 192*64 
FOR N = 0 TO 62: READ Q: POKE 192*64 + N, Q : NEXT N 
POKE 2040, 192 : REM DEFINE LOCATION OF SPRINT 0 
POKE V + 39, 1 : REN SET SPRITE 0 COLOR TO WHITE 
REM PUT DATA FOR SPRITE 1 (MISSILE) IN LOCATION 193*62 
FOR N = 0 TO 62s READ Q: POKE 193*64 + N, Q : NEXT N 
POKE 2841, 193 s REM DEFINE LOCATION OF SPRITE 1 
POKE V+40,78 REM SET SPRITE I COLOR TO YELLOW 
RETURN 


REM ===== DRAW GUN ===== 

PRINT "{SC}" s REM SHIFT CLR/HQME 
FOR I = 1 TO 6 i PRINT "{CD^jsICXT s REM CRSR DOWN 
PRINT TAB(33) "’77" s REM COMM-M, COMM-Y, COMM-Y 
,,,n 8 REM COMM-M 
"///:" s REM 3 COMM-P, SHIFT @ 


PRINT TAB(33) 
PRINT TAB(30) 
PRINT 

PRINT TAB(30) 
PRINT TAB(33) 
PRINT TAB(33) 
RETURN 


"777P" s REM 3 COMM-Y, SHIFT-P 
"*" s REM COMM-M 

"*99° s REM COMM-M, COMM-O, COMM-Q 


REM ===== SHOW TARGET ===== 

POKE V0,20 s POKE H0,30 s REM POSITION SPRITE 0 
POKE V + 21,1 s REM TURN ON SPRITE 0 
FOR A = 20 TO 255 STEP SPs POKE V0,A : REM MOVE DOWN 
IF PEEK (197) <> 64 THEN RETURN s REM SHOT FIRED 
NEXT A 

FOR A = 255 TO 20 STEP -SP: POKE V0,A : REM MOVE UP 
IF PEEK (197) <> 64 THEN RETURN s REM SHOT FIRED 
NEXT A 

GOTO 430s REM LOOP BACK 


REM ===== SHOOT ===== 

POKE V + 30,0 s REM CLEAR COLLISION RESISTER 

POKE HI,255 s POKE VI,140 : REM POSITION SPRITE 1 (MISSILE) 

POKE V + 21,3 : REM TURN ON BOTH SPRITES 0 AND 1 

FOR I = 255 TO 0 STEP -2 : POKE HI, I : REM MOVE MISSILE TO LEFT 

IF PEEK(V + 3©) = 3 THEN GOSUB 600 : RETURN s REM HIT 

NEXT I 

IF PEEK (V+30) () 3 THEN GOSUB 1100 : REM NO HIT 
RETURN 
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600 REM ===== HIT ===== 

610 POKE V + 21,0 : REM TURN OFF ALL SPRITES 

6m LET HITS = HITS + 1 

630 GOSUB 7m : (CM MAKE SOUND 

640 RETURN 

6m : 

7m REM ===== SOUND ===== 

710 FOR J = S TO S+24 : POKE J,0 ; NEXT s REM CLEAR SOUND CHIP 

720 POKE S+24,15 : REM SET VOLUME 

7S8 POKE S+5,0 : REM SET ATTACK/DECAY 

740 POKE 3+6,240 : REM SET SUSTAIN/RELEASE 

7m POKE S+2,0 : POKE S+3,8 ; REM SET PULSE RATE 

760 FOR J = 1 TO 3 

770 POKE 2,15 : POKE S+1,67 : REM SET FREQUENCY TO C IN OCTAVE 6 
7m POKE S+4,65 : REM START THE NOTE 

7m FOR T = 1 TO 30 : NEXT T s REM DELAY WHILE THE NOTE PLAYS 
am POKE S+4,64 : REM STOP THE NOTE 

810 POKE S,30 : POKE S+l,134 s REM SET FREQUENCY TO C IN OCTAVE 7 
820 POKE S+4,65 : REM START THE NOTE 

8m FOR T = 1 TO 30 S NEXT T s REM DELAY WHILE THE NOTE PLAYS 
840 POKE S+4,64 : (CM STOP THE NOTE 
am NEXT J 

860 POKE S+224,0 : REM SET VOLUME TO 0 
870 RETURN 

am : 

9m REM == BET SPEED CHOICE === 

905 PRINT "<SC>" s REM SHIFT CLR/HOME 
910 PRINT : PRINT 

915 PRINT " SELECT THE TARGET SPEED" 

920 PRINT 

925 PRINT " ENTER A NUMBER FROM 1 TO 5 TO SET THE" 

9m PRINT " SPEED OF THE TARGET. A SPEED OF 1 IS" 

935 PRINT “ VERY SLOW AND A SPEED OF 5 IS FAST." 

940 PRINT 

9m INPUT - ENTER YOUR CHOICE (1 TO 5)"|SP 
9m RETURN 
965 : 

10O0 REM ===== GIVE RESULTS ===== 

1010 POKE V + 21,0 s (CM TURN OFF ALL SPRITES 
1020 PRINT ”-tSC>" : REM "SHIFT - CLR/HOfC" 

1030 PRINT:PRINT:PRINTSPRINTSPRINT 

1040 PRINT " HITS =" HITS 

1041 PRINT 

1042 IF HITS = 5 THEN PRINT " MASTER GUNNER" 

1043 IF HITS = 4 THEN PRINT " GOOD SHOOTING" 

1044 IF HITS = 3 THEN PRINT " YOU CAN DO BETTER" 

1045 IF HITS = 2 THEN PRINT " YOU ICED PRACTICE" 

1046 IF HITS = 1 THEN PRINT " OH MY" 

1047 IF HITS = 0 THEN PRINT " WHAT CAN I SAY" 

105O PRINT "■CCDKCDKCDXCDKCDKCDKCDHCDHCDHCDT" s REM CRSR DOWN 
1060 RETURN 
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1100 REM — Ml HIT SOUND ===== 

1110 FOR J = S TO S+24 : POKE J,0 : NEXT : REM CLEAR SOUND CHIP 

USO POKE S+24,10 : REM SET VOLUME 

1130 POKE S+5,0 : REM SET ATTACK/DECAY 

1140 POKE S+6,240 : REM SET SUSTAIN/RELEASE 

1150 POKE S+2,0 s POKE S+3,8 : REM SET PULSE RATE 

1160 POKE 2,40 : POKE S+1,4 : REM SET FREQUENCY TO C IN OCTAVE 2 

1170 POKE S+4,65 : REM START THE NOTE 

1100 FOR T = 1 TO ISO : NEXT T : REM DELAY WHILE THE NOTE PLAYS 
1190 POKE S+4,64 : REM STOP TIC NOTE 
1200 RETURN 
1210 : 


READY, 
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1 PN* = “P-11.3 GUN TOP” 

2 NA* = “ROBERT N. BATESON" 

3 DA* = "9/15/85" 

10 REM ===== VARIABLES ===== 

11 REM A = LEFT EDGE OF TARGET 

12 REM I = LOOP COUNTER 

13 REM J = LOOP COUNTER 

14 S = 54272 : REM SOUND CHIP LOCATION 

15 REM SP = SPEED OF THE TARGET 

16 REM SHOT = SHOT NUMBER 

17 REM T = TIME DELAY VARIABLE 

18 REM Z = DUMMY VARIABLE 

19 V = 53248 : REM VIDEO CHIP LOCATION 

20 HO = V s REM SPRITE 0 HORIZONTAL 

21 VO = V + 1 s REM SPRITE 0 VERTICAL 

22 HI = V + 2 : REM SPRITE 1 HORIZONTAL 

23 VI = V + 3 s REM SPRITE 1 VERTICAL 

29 : 

50 REM ====== DATA SECTION ===== 

60 REM SPRITE 0 DATA (TARGET) 

61 DATA 63,255,252,127,0,254,255,0,255 

62 DATA 255,255,255,71,255,2%, 63,255,252 

63 DATA 0,0,0,0,0,0,0,0,0 

64 DATA 0,0, 0,0,0,0,0,0,0 

65 DATA 0,0,0,0,0,0,0,0,0 

66 DATA 0,0,0,0,0,0,0,0,0 

67 DATA 0,0,0,0,0,0,0,0,0 

69 : 

70 REM SPRITE 1 DATA (MISSILE) 

71 DATA 0,126,0, 0,60,0, 0,GO,0 

72 DATA 0,60,0, 0,60,0, 0,24,0 

73 DATA 0,24,0, 0,24,0, 0,0,0 

74 DATA 0,0,0,0,0,0,0,0,0 

75 DATA 0,0,0,0,0,0,0,0,0 

76 DATA 0,0,0,0,0,0,0,0,0 

77 DATA 0,0,0,0,0,0,0,0,0 

80 t 

100 REM ===== MAIN PROGRAM ===== 

110 60SUB 900 : REM BET SPEED CHOICE 
120 GOSUB 200 s REM SET UP SPRITES 
130 GOSUB 300 : REM DRAW GUN 

140 FOR SHOT = 1 TO 5 : GOSUB 400 : REM SHOW TARGET 
150 GOSUB 500 : REM FIRE SHOT & CHECK FOR HIT 
160 NEXT SHOT 

170 GOSUB 1000 : REM 6IVE RESULTS 

180 END 
190 : 
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200 REM ===== SET UP THE SPRITES===— 

201 PRINT “{SO" : REM SHIFT CLR/HOME 

202 PRINT “{CDXCDHCDXCDHCDMCDHCDHCDHCDMCDJ" : REM CRSR DOWN 

203 PRINT TABU 1) “SETTING UP SPRITES" 

210 REM PUT DATA FOR SPRITE 0 (TARGET) IN LOCATION 192*64 
220 FOR N * 0 TO 62: READ Q: POKE 192*64 + N, Q : NEXT N 
230 POKE 2040, 192 : REM DEFINE LOCATION OF SPRINT 0 
240 POKE V + 39, 1 : REM SET SPRITE 0 COLOR TO WHITE 
250 REM PUT DATA FOR SPRITE 1 (MISSILE) IN LOCATION 193*62 
260 FOR N = 0 TO 62: READ Q: POKE 193*64 + N, Q : NEXT N 
270 POKE 2041, 193 : REM DEFINE LOCATION OF SPRITE 1 
260 POKE V+40,7: REM SET SPRITE 1 COLOR TO YELLOW 
290 RETURN 

299 : 

300 REM ===== DRAW 6UN == 

305 PRINT "ISO" : REM SHIFT CLR/HOME 

330 PRINT TAB(13)“69999956999995" : REM: CM-L, 5 CM-O, CM-J, CM-L, 5 CM-O, CM-J 

340 PRINT TAB(19)“56" : REM COMM-J, COMM-L 

350 PRINT TAB(19)"56“ : REM COMM-J, COMM-L 

360 RETURN 

370 : 

400 REM ===== SHOW TARGET ===== 

410 POKE V0.220 : POKE H0,50 : REM POSITION SPRITE 0 
420 POKE V + 21,1 : REM TURN ON SPRITE 0 

430 FOR A = 50 TO 255 STEP SP: POKE H0,A : REM MOVE TO RIGHT 
440 IF PEEK (197) (> 64 THEN RETURN : REM SHOT FIRED 
450 NEXT A 

460 FOR A = 255 TO 50 STEP -SP: POKE HO,A : REM MOVE TO LEFT 
470 IF PEEK (197) () 64 T»«N RETURN : REM SHOT FIRED 
460 NEXT A 

490 GOTO 430: REM LOOP BACK 
495 : 

50O REM ===== SHOOT ===== 

510 POKE V + 30,0 : REM CLEAR COLLISION RESISTER 

520 POKE HI,172 : POKE VI,58 : REM POSITION SPRITE 1 (MISSILE) 

538 POKE V + 21,3 : (EM TURN ON KITH SPRITES O AND 1 

540 FOR I * 56 TO 255 STEP 2 : POKE VI, I : REM MOVE MISSILE DOWN 

550 IF PEEK(V + 30) = 3 THEN GOSUB 60® : RETURN : REM HIT 

560 NEXT I 

565 IF PEEK (V+30) (> 3 THEN GOSUB 1100 : REM NO HIT 
570 RETURN 
560 : 
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600 REM ===== HIT ===== 

610 POKE V + 21,0 : REM TURN OFF ALL SPRITES 

620 LET HITS = HITS + 1 

630 GOSUB 700 : REM MAKE SOUND 

640 RETURN 

650 : 

700 REM ===== SOUND ===== 

710 FOR J = S TO S+24 : POKE J,0 s NEXT : REM CLEAR SOUND CHIP 

720 POKE S+24,15 s REM SET VOLUME 

730 POKE S+5,0 : REM SET ATTACK/DECAY 

740 POKE S+6,240 s REM SET SUSTAIN/RELEASE 

750 POKE S+2,0 s POKE S+3,8 : REM SET PULSE RATE 

760 FOR J = 1 TO 3 

770 POKE 2,15 : POKE S+1,67 s REM SET FREQUENCY TO C IN OCTAVE 6 
780 POKE S+4,65 s REM START THE NOTE 

790 FOR T = 1 TO 30 : ICXT T : REM DELAY WHILE THE NOTE PLAYS 
800 POKE S+4,64 s REM STOP THE NOTE 

810 POKE S,30 : POKE S+1,134 s REM SET FREQUENCY TO C IN OCTAVE 7 
820 POKE S+4,65 8 REM START THE NOTE 

830 FOR T = 1 TO 30 : NEXT T : REM DELAY WHILE THE NOTE PLAYS 
840 POKE S+4,64 : REM STOP THE NOTE 
850 NEXT J 

860 POKE S+224,0 : REM SET VOLUME TO 0 
870 RETURN 
880 : 

900 REM == BET SPEED CHOICE == 

90S PRINT "<SC>“ s REM SHIFT CLR/HOME 
910 PRINT 8 PRINT 

915 PRINT " SELECT THE TAR6ET SPEED" 

920 PRINT 

925 PRINT " ENTER A NUMBER FROM 1 TO 5 TO SET THE" 

930 PRINT " SPEED OF THE TARGET. A SPEED OF 1 IS" 

935 PRINT " VERY SLOW AND A SPEED OF 5 IS FAST." 

940 PRINT 

950 INPUT “ ENTER YOUR CHOICE (1 TO 5)"jSP 
960 RETURN 
965 s 

1000 REM ===== GIVE RESULTS ===== 

1010 POKE V + 21,0 8 REM TURN IFF ALL SPRITES 
1020 PRINT "<SC>" 3 REM "SHIFT - CLR/HOME" 

1030 PRINT SPRINT SPRINT 8PRINT:PRINT 

1040 PRINT " HITS =" HITS 

1041 PRINT 

1042 IF HITS = 5 THEN PRINT " MASTER GUNNER" 

1043 IF HITS = 4 THEN PRINT " GOOD SH00TIN6" 

1044 IF HITS = 3 THEN PRINT " YOU CAN DO BETTER" 

1045 IF HITS = 2 THEN PRINT " YOU ICED PRACTICE" 

1046 IF HITS = 1 THEN PRINT " OH MY" 

1047 IF HITS = O TIEN PRINT " WHAT CAN I SAY" 

1050 PRINT "-CCDXCDXCDXCDXCDXCDXCDXCDXCDXCDT" s REM CRSR DOWN 
1060 RETURN 
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1180 REM ===== NO HIT SOW® ===== 

1110 FOR J = S TO S+24 : POKE J,0 s ICXT s REM CLEAR SOUND CHIP 

1120 POKE S+24,10 : REM SET VOLUME 

1130 POKE S+5,0 i REM SET ATTACK/DECAY 

1140 POKE S+6,240 ! REM SET SUSTAIN/RELEASE 

1150 POKE S+2,0 : POKE S+3,8 s REM SET PULSE RATE 

1160 POKE 2,48 s POKE S+1,4 : REM SET FREQUENCY TO C IN OCTAVE 2 

1170 POKE S+4,65 : REM START THE NOTE 

1180 FOR T « 1 TO 180 s NEXT T : REM DELAY WHILE THE NOTE PLAYS 
1190 POKE S+4,64 : REM STOP THE NOTE 
1200 RETURN 
1210 : 

READY. 



PART THREE: TEST BANK, MULTIPLE CHOICE QUESTIONS 


TEST QUESTIONS 

CHAPTER 0 


O.l Which of the following keys is used at the end of each line 
in your program? 

a. CLR/HOME * c. RETURN 

b. CTRL d. RUN/STOP 


0-2 Which of the following keys is used with the shift key to 
clear the screen? 

• a. CLR/HOME c. RETURN 

b. CTRL d. RUN/STOP 


0.3 Which of the following keys is used with the number keys to 
change the colors on the screen? 
a. CLR/HOME c. RETURN 

* b. CTRL d. RUN/STOP 


0.4 Which of the following keys is used to halt a run or list? 

a. CLR/HOME c. RETURN 

b. CTRL * d. RUN/STOP 


0.5 Which of the following is used to set up a diskette? 

a. OPEN 15,B,15 
PRINT015 "NEWOsNAME, 01" 

b. OPEN 15,B,15 
PRINT015,"NEW0:NAME, ab" 

• c. OPEN 15,0, 15 

PRINT015,“NEWOtNAME, 01" 
d. OPEN 15,a,15 

PRINT015, NEWO:NAME, 01 
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6.6 The procedure for setting up a new diskette is dangerous 
because 

* a. it destroys all information on a diskette for good 

b. it can "blow” the diskette if you type it wrong 
c B it can mess up your first program 
d. it will change the names of some files 


6.7 Which of the following could cause a disk to not work? 

a. A disk that was not set up. 

b. A disk drive that is out of adjustment. 

c. Writing on a disk with a ball point pen. 

* d. Oil of the above. 


0.8 Which of the following keys is used to enter (or conclude) 
a line or command? 

* a. RETURN c. RUN/STOP 

b. Commodore d. RESTORE 


0.9 For which of the following do you press the RETURN key? 

* a. When you have finished typing a program line. 

b« When you want to go into the edit mode. 

c. When you wish to return to BASIC. 

d. When you want to insert material in a program line. 


0.10 For which of the following do you press the RETURN key? 
* a. When you have finished typing a command. 

b. When you are finished programming. 

c. When you want to edit a program line. 

d. When you want to leave BASIC. 


0.11 A message the computer prints when something is wrong. 
* a. SYNTAX ERROR c. NEW 

b. LIST d. RETURN 


0. IE Which of the following are valid variable names? 

a. 5B * c. AS 

b. $5S d. All of the above 


0.13 Which of the following are valid string variable names? 
a. $BOX c. B«3B* 

bo B—S3* • d. B5* 
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0.14 Which command do you use to 

a. NEW 

b. SAVE 


0.15 Which command do you use to 
computer* s memory? 

* a. NEW 

b. SAVE 


0.16 Which command do you use to 

a. NEW 
• b. SAVE 


0.17 Which command do you use to 
computer's memory? 

a. NEW 

b. SAVE 


run a new program? 

c. LIST 
* d. RUN 


remove the program from the 

c. LIST 

d. RUN 


copy a program onto a diskette? 

c. LIST 

d. RUN 


see the program in the 

* c. LIST 
d. RUN 


0. IS Which of the following is used to show the output of a 
program? 

a. LIST c. LOAD 

* b. PRINT d. SAVE 


O.19 The value of a variable can be put on the screen with a 

a. LIST statement * c. PRINT statement 

b. LET statement d. PUT statement 

0.20 The PRINT statement can be used to 

* a. print the value of a variable on the screen 

b. save a program on a diskette 

c. list a program on the screen 

d. change the intensity of the characters on the screen 


0.SI The SAVE command 

a. makes two backup copies of a program 

b. changes the name of a program on the diskette 

c. erases the program in memory 

* d. copies the program in memory to the diskette 


0. SS The SCRATCH command is used to 

a. removes a single line of a program 

b. remove several lines of a program 

* c. remove a single program from the diskette 

d. remove all programs from a diskette 
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0.23 Programs erased with the SCRATCH command 

a. can be recovered very simply 
* b. cannot be recovered using BASIC commands 

c. can be recovered using the LOAD command 

d. can be recovered using the SAVE command 


0.24 Which command will copy PROSRAM 1 from a disk into the 
computer memory? 

a. COPY PROGRAM 1 

b. COPY "PROGRAM 1" 

c. LOAD PROGRAM 1 

* d. LOAD "PROGRAM 1" 

0.25 The LOAD command 

a. lets you insert a new diskette in the drive 

b. lets you save a program on a diskette 

* c. copies a program from a diskette into memory 

d. has no effect on what is in the computer* s memory 

0.2G The LOAD command 

a. can erase programs from a diskette 

b. has no effect on what is in the computer* s memory 

* c. has no effect on what is stored on the diskette 

d. can be used to rename programs 

0.27 The LOAD command 

* can cause the loss of the program in memory 

b. can erase programs on the diskette 

c. can change the name of a program on the diskette 

d. has not effect on computer memory 


0.28 Which command would you use to find the names of programs 
on a diskette? 

a. LOAD"*",8 and LIST c. >* 

b. ©* * d. All of the above 


0.29 The ©* command 

a. is used to organize programs on a diskette 

b. is used to remove programs from a diskette 

• c. is used to find the names of programs on a diskette 

d. tells the name of the program in memory 
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0. 30 


0-31 


0. 32 


0. 33 


0.34 


0.35 


0. 36 


Which command will put on the screen the entire program in 
the computer’s memory regardless of the size of the 
program? 

a. LIST -800 c. LIST 80- 

* b. LIST d. LIST 80-800 


The LIST command 

* a. lets you see the program you have just written 

b. changes the program in memory 

c. erases the program in memory 

d. saves a program on the diskette 


used to see the program in the 


Which of the following is 
computer’s memory? 

a. LOAD 
* b. LIST 


Which of the following is 
program? 

a. REMOVE 80 ft RETURN 

b. PRINT 80 ft RETURN 


Which of the following is 
computer memory and leave 

a. CLR/HOME 

b. SAVE 


c. SAVE 

d. RUN 


used to remove line 80 from a 

c. LIST 80 ft RETURN 
* d. 80 ft RETURN 


used to remove the program from 
a clear workspace? 
c. SCRATCH 
* d. NEW 


Program 2 is in the computer’s memory. Program 1 is on the 
disk. Which sequence of commands will put a copy of 
Program 2 on the disk and a run of Program 1 on the screen? 
a. SAVE (RETURN) and RUN"PROGRAM 1", 8(RETURN) 

* b. SAVE"PROGRAM 2",8(RETURN) LOAD"PROGRAM 1 % 8(RETURN) 

RUN (RETURN) 

c. SAVE"PR0GRAM 2",8(RETURN) RUN"PROGRAM 1,8"(RETURN) 

d. SAVE PROGRAM 2 (RETURN) and RUN (RETURN) 


Pressing the INST/DEL key 

a. inserts a space before the character under the cursor 

b. inserts a space after the character under the cursor 

c. deletes the character under the cursor 

* d. deletes the character on the left of the cursor 
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0.37 Pressing the SHIFT-INST/DEL key 

* a. inserts a space before the character under the cursor 

b. inserts a space after the character under the cursor 

c. deletes the character under the cursor 

d. deletes the character on the left of the cursor 


0.38 Which of the following 
computer’s memory? 

a. LOAD 

b. SAVE 


0.39 Which of the following 
diskette? 
a. LOAD 
* b. SAVE 


0.40 Which of the following 
diskette? 
a. LOAD 
* b. RUN 


changes the program in the 

c. SCRATCH 

d. RUN 


can change a program stored on a 

c. RUN 

d. LOAD”*",© 


can change a program stored on a 

c. SCRATCH 

d. ERASE 



CHAPTER 


1. 1 Which of 

the 

following is NOT a valid LET statement? 

a. 

110 

LET 

A = 2 

b. 

120 

LET 

X = Y 

* c. 

130 

LET 

X + Y = T 

d. 

140 

LET 

T ■> 4 * X + 3 


1.2 Which of 

the 

following 

is not a valid 

LET statement? 

* a. 110 

LET 

2 ■ X 

c. 130 

LET X = 1.222 

b. 120 

LET 

X = 12345 

d. 140 

LET Y ■ X + Y 


1.3 Which of 

the 

following is not a valid LET statement? 

a. 

no 

LET 

YES = X 

b. 

120 

LET 

SUM =Y+X+Z+L 

c. 

130 

LET 

NX = A + X 

* d. 

140 

LET 

PRINT = 23 


1.4 

Which of the following 

is NOT a valid VARIABLE name? 


a. X 

c. Y 


b. X2 

* d. IX 


1.5 

Which of the following 

is NOT a valid variable name 


a. SUM 

c. X 


b. YES 

* d. PRINT 


1.6 Which of the following is NOT a valid variable name? 
a. TURKEY c. BASE 

* b. B * 3 d. JOHN 


1.7 Which of the following pairs of names will work for two 
variables in a program. 

a. X12 and X13 c. SUM and SUMMATION 

* b. XI and X2 d„ NUMBER 1 and NUMBER2 
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1.8 


1.9 


1 . 10 


1 . 11 


1 . 12 


1. 13 


If F = distance in feet and Y = distance in yards, which 
set of instructions will give a correct answer on the 
screen. 


a. 

110 

LET F = 

4 



120 

PRINT Y 



b. 

110 

LET Y = 

2 



120 

PRINT F 



c. 

110 

READ F 




120 

LET Y = 

F / 

3 


130 

PRINT Y 




140 

DATA 12 



d. 

110 

DATA 12 




120 

LET Y = 

F / 

3 


130 

PRINT Y 




140 

READ F 



The 

LET 

statement 

is 

used 


* a. set the value of a variable 

b. put remarks in a program 

c. print the value of a variable 

d. save a program on a diskette 


Which of the following commands will remove a program 
from a diskette? 

a. DELETE c. ERASE 

* b. SCRATCH d. KILL 


_ is used in a program to set the value of a 

variable. 

a. PRINT * c. LET 

b. RETURN d. SAVE 


_ is used in a program to show the results 

produced by the program. 

a. NEW * c. PRINT 

b. LIST d. LET 


Which of the following is used to store a program on a 
disk. 

a. LOAD * c. SAVE 

b. RUN d. STORE 




157 


1. 14 


1. 15 


1.16 


1. 17 


1. 18 


1. 19 


1.88 


Which of the following is used to list the names of the 
programs on a disk. 

a. CATALOG * c. 0* and LIST 

b. LOAD d. NEW 


Which of the following is used to copy a program from a 
disk into the computer’s memory. 

a. NEW c. DELETE 

b. SAVE * d. LOAD 


Which of the following is used to execute the program in 
the computer* s memory? 
a. EXECUTE c. LIST 

* b. RUN d. LOAD 


The NEW command is used to 
a. remove a program from a diskette 
* b. erase a program from the computer’s memory 

c. remove specific lines from a program 

d. prepare a diskettes for use 


The SCRATCH command is used to 
* a. remove a program from a diskette 

b. erase a program from the computer* s memory 

c. remove specific lines from a program 

d. prepare a diskette for use 


* 


Which of the following in not a valid LET statement? 


a. 110 

LET 

XS = 15 



b. 180 

LET 

V = 3 * 

a + 

18.6 

c. 130 

LET 

Y - 5 = 

x * 

8 

d. 140 

LET 

Y - X + 

13 



Which commands are used to make a 
program in the computer’s memory? 
a. 0PEN4 c. 

LIST4 
PRINT4 


printed LIST of the 

0PEN4 

CMD4 

PRINT4 


b. CMD4 
LIST 
0PEN4,4 


* d. 0PEN4,4 
CMD4 
LIST 



2 . 1 


Which of the following are reasons for using programming 
standards? 

a. They make programs easier to modify. 

b. They make programs easier to read. 

c. They make programs easier to write. 

* e. All of the above. 


2.2 Which of the following is NOT a reason for using a starter 
program? 

a. It saves time entering a program. 

b. It makes programs easier to read. 

c. It makes it easier to follow programming standards. 

* d. You can write programs without thinking about them. 

2.3 Remark statements are used to 

a. give special instructions to the computer 

b. tell the computer the names of the variables 

* c. have no effect on the execution of the program 

d. tell the computer how to round numbers 


2.4 If X has the value 14.763258, which rounding function was 
used if a PRINT X statement printed the number 14.76? 

a. FN A(X) * c. FN C(X) 

b. FN B(X) d. FN D(X) 


2.5 If X has the value 14.763258, which rounding function was 
used if a PRINT X statement printed the number 14.8? 
a. FN A(X) c. FN C(X) 

* b. FN B(X) d. FN D(X) 


2.6 If X has the value 14.763258, which rounding function was 
used if a PRINT X statement printed the number 15? 

* a. FN A(X) c. FN C(X) 

b. FN B(X) d. FN DCX) 


2.7 If X has the value 14.763258, which rounding function was 
used if a PRINT X statement printed the number 14.763? 

a. FN ACX) c. FN C(X) 

b. FN B<X) * d. FN DCX) 
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2.B 


2.9 


2 . 10 


2 . 11 


2 . 12 


2. 13 


2. 14 


Which of the following statements would produce the 
following output on the screen? 


X = $ 235.65 


a. 

130 

LET X 

= 235.65 


140 

PRINT 

X 

II 

S 

•as 

* 

X 

b. 

130 

LET X 

= $235.65 


140 

PRINT 

>< 

11 

X 

c. 

130 

LET X 

= $235.65 


140 

PRINT 

"X * $X 

* da 

130 

LET X 

= 235.65 


140 

PRINT 

**x = $"; X 


Which rounding function do you use to round to a whole 
number ? 

* a. FN ft c. FN C 

b. FN B d. FN D 


Which rounding function do you use to round to one 
decimal place? 

a. FN A c. FN C 

* b. FN B d. FN D 


Which rounding function do you use to round to two 
decimal places? 

a. FN A * c. FN C 

b. FN B d. FN D 


Which rounding function do you use to round to three 
decimal places? 

a. FN ft c. FN C 

b. FN B * d. FN D 


The programming standards in the text put the name of 
the program, the date, and the programmer 1 s name in 
* a. 1—3 c. 100—103 

b. 10-13 d. 40-49 


Which of the following commands turns on output to the 


printer? 
a. 0PEN4 

c. OPEN4 

PRINT4 

CMD4 

b. 0PEN4,4 

* d. 0PEN4,4 

PRINT4 

CMD4 



O’ Hi 


1£0 


2. 15 Which of the following commands turns off output to the 
printer? 

. PRINT04,:CL0SE4 c. PRINT#4:CL0SE4 

. CL0SE#4 d. CL0SE4 



CHAPTER 



3.1 Which command will write on the screen the names of all 
programs on a disk? 

a. LIST * c. >* 

b. DIRECTORY d. CATALOG 


3.2 Which of the following changes the program in the 
computer* s memory? 

a. LIST * c. NEW 

b. SAVE d. >* 


3.3 Which of the following can change a program stored on a 
diskette? 

a. LOAD c. >* 

* b. SCRATCH d. LIST 

3.4 Which command will remove PROGRAM 1 from a disk? 

* a. @"S0:PROGRAM 1" c. SCRATCH PROGRAM 1 

b. "SCRATCH PROGRAM 1" d. SCRATCH"PROGRAM 1" 


3.5 Which command will remove an entire program from computer 
memory regardless of the size of the program? 

* a. NEW c. DELETE PROGRAM 1 

b. DELETE d. SCRATCH 


3.6 Which of the following commands is used to copy a program 
from memory onto a diskette? 

a. LOAD c. COPY 

b. DUPLICATE * d. SAVE 


3.7 Which of the following is necessary to copy PROGRAM 1 
from memory onto a disk? 

a. Type SAVE"PROGRAM 1" and press return. 

* b. Type SAVE“PROGRAM 1",8 and press return. 

c. Type SAVE PROGRAM 1 and press return. 

d. Type SAVE PROGRAM 1,8 and press return 
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Which of the following is the best example of an INPUT 
statement? 


a. 

130 

140 

INPUT 

PRINT 

X; 

"X = 

>• • 
f 

* b. 

130 

140 

PRINT 

INPUT 

"X = 
X 

*• . 

c. 

130 

140 

PRINT 

INPUT 

"X = 
X 

tl 

d. 

130 

INPUT 

X 



3. 14 

* 


Which of the following go together? 

a. READ and DATA statements 

b. READ and INPUT statements 

c. INPUT and LET statements 

d. READ and LET 


3.15 Which of the following is NOT used to assign values to 
variables. 

a- LET c. INPUT 

* b. PRINT d. READ/DATA 


What is 

the output 

110 

DATA 3,6 

120 

READ A,B 

130 

PRINT B/A 

a. 36 


b. £ 



of the following program? 


c. .5 

d. 3 


3.17 What 

is 

the output 


110 

DATA 5, 10 


1£0 

READ A,B 


130 

PRINT B/A 

a. 

50 


* b. 

£ 



3. ia 

What is 

the output 


HO 

DATA 1,2 


120 

READ A,B 


130 

a. 12 

PRINT B/A 


* b. £ 


of the following program? 


c. .5 

d. 15 


of the following program? 


. .5 

. 3 


c, 

d. 
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3.0 


3.9 


3. 10 


3. 11 


3. IS 


Which of the following will result in an error message? 

a. 110 READ A,B 
120 READ C 
190 DATA 5,7 

b. 110 READ A,B 

200 DATA "9";"10" 

c. 110 READ A,B ; DATA 9,10 
* d. All of the above 


Which of the following statements will assign the value 
of 2 to P, the value of 6 to Q, and the value 9 to R? 


a. 110 
201 

READ 

DATA 

P,Q,R 

6,2,9 

* C. 110 

201 

READ 

DATA 

P, R,Q 
2,9,6 

b. 110 
201 

READ 

DATA 

Q, R, P 

6, 2,9 

d. 110 

201 

READ 

DATA 

P,Q,R 

2,9,6 


What is wrong with the following program? 

110 READ A : READ B 
120 DATA 3,1.22 

a. not enough READ statements 

b. not enough DATA values 

c. DATA statement should come before READ statement 
* d. nothing is wrong 


The INPUT statement 

* a. is used to enter data from the keyboard when the 
program runs. 

b. should never include a prompt message 

c. is the most convenient way to enter large amounts of 
data. 

d. is very unreliable 


Which of the following statements require someone to be 
present while the program is running? 
a. READ c. DATA 

* b. INPUT d. LET 




4. 1 


In the program below, which statement would produce output 
similar to that shown on the right below. 


PROGRAM OUTPUT 

110 INPUT X ?4 

130 LET R = X / 2 2 

130 PRINT R 2 

140 PRINT 2 


* a. 135 GOTO 120 

b. 150 GOTO 110 


4.2 In the following program, 
print A, B, C? 

110 READ A, B 

120 LET C ■ A * B 

130 PRINT A, B, C 

140 PRINT 

150 GOTO 110 

200 DATA 4,6,8,9,7,3,10 

a. one time 

b. two times 


4.3 In the following program, 
print A, B, C? 

110 READ A, B 
120 LET C = A * B 
130 PRINT A, B, C 
140 PRINT 
150 GOTO 110 
200 DATA 4,6,8 

* a. one time 
b. two times 


c. 125 GOTO 110 

d. 150 GOTO 120 


how many times will the computer 


* c. three times 
d. four times 


how many times will the computer 


c. three times 

d. four times 
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4.4 In the following program, how many times will the computer 
print A, B, C? 

110 READ A, B 

120 LET C - A * B 

130 PRINT A, B, C 

140 PRINT 

150 GOTO 110 

200 DATA 6, B, 7, 3, 4 

a. one time c. three times 

* b. two times d. four times 


4.5 In the following program, how many times will the computer 
print A, B, C? 

110 READ A, B 

120 LET C = A * B 

130 PRINT A, B, C 

140 PRINT 

150 GOTO 110 

200 DATA 4, 6, B, 5, 2, 5, 6, 1 

a. one time c. three times 

b. two times * d. four times 


4.6 What is the final message printed by the following 
program? 

110 READ A, B 
120 LET C = A * B 
130 PRINT A 

132 PRINT B 

133 PRINT C 
140 PRINT 


150 

GOTO 

110 

200 

DATA 

If 1.1 

a. 

111 

c. 12 2 

b. 

1 

* d. ?OUT OF DATA ERROR 


1 



1 


Which of 

the following is a valid 

INPUT statement? 

* a. 

150 

PRINT "ENTER X"; s INPUT 

X 

b. 

150 

INPUT "ENTER Xs" X 


Cm 

150 

INPUT "ENTER X "s X 


d. 

150 

INPUT "ENTER X "js X 
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4.6 Which of the following will produce a loop with 6 passes. 

a. 110 LET C = 0 
150 LET C = C + 1 

160 IF C < 6 GOTO 150 

b. 110 LET C « 1 
150 LET C = C + 1 
160 IF C < 7 GOTO 150 

c. 110 LET C = 6 
150 LET C = C - 1 

160 IF C > 0 GOTO 150 

* d. All of the above 


4.9 Which of the following will produce a loop with 5 passes. 

a. 110 LET C = 0 
150 LET C = C + 1 
160 IF C < 6 GOTO 150 

b. 110 LET C = 1 
150 LET C = C + 1 

160 IF C < 7 GOTO 150 

* c. 110 LET C = 6 

150 LET C = C - 1 
160 IF C > 1 GOTO 150 

d. All of the above 


4.10 Which of the following will produce a loop with 7 passes. 
* a. 110 LET C = 0 

150 LET C = C + 1 

160 IF C < = 6 GOTO 150 

b. 110 LET C = 1 
150 LET C = C + 1 
160 IF C < 7 GOTO 150 

c. 110 LET C = 6 
150 LET C = C - 1 
160 IF C > 0 GOTO 150 

d. All of the above 



1E7 


A.11 How many times is line 150 executed when the following 
program runs? 

110 LET S = 0 

120 INPUT X 

130 PRINT X,S 

140 LET S - S + 2 

150 IF S < = 9 GOTO 120 

a. one time * c. five times 

b. four d. six times 

4.12 How many times is line 150 executed when the following 
program runs? 


110 

LET S = 7 



120 

INPUT X 



130 

PRINT X f S 



140 

LET S = S + 2 



15© 

IF S < = 9 GOTO 120 



a. 

one time 

Cm 

five times 

b. 

two times 

dm 

six times 


4.13 How many times is line 150 executed when the following 
program runs? 


110 

LET S « 10 



120 

INPUT X 



130 

PRINT X,S 



140 

LET S = S + 2 



150 

IF S < = 9 GOTO 120 



a« 

one time 

c. 

five times 

b. 

two times 

d. 

six times 


4.14 How many times will line 130 be executed in the following 
program? 

110 N = 3 

120 N = N - 1 

130 PRINT N 

140 IF N > 0 GOTO 120 

a. one time * c. three times 

b. two times d. four times 
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4.15 How many times will line 
program? 

118 N = 8 

128 N = N - 1 

130 PRINT N 

140 IF N > 0 GOTO 120 

a. zero times 
* b. one time 


4.16 How many times will line 
program? 

HO N = 3 

128 N = N - 1 

130 PRINT N 

148 IF N = O GOTO 120 

* a. one time 
b. two times 


4.17 How many times will line 
program? 

110 N = 4 

128 N * N - 1 

130 PRINT N 

140 IF N > O GOTO 120 

a. one time 

b. two times 


130 be executed in the following 


c. two times 

d. three times 


130 be executed in the following 


c. three times 

d. four times 


130 be executed in the following 


c. three times 
* d. four times 



CHAPTER 


5-1 Which of the following are valid FOR/NEXT statements? 


110 

FOR I = 

1 TO 10 

STEP —2 

150 

NEXT I 



110 

FOR I = 

1 TO 10 


150 

NEXT J 



110 

FOR I = 

10 TO 1 

STEP -2 

150 

NEXT I 



110 

FOR I = 

10 TO 1 

STEP -1 

150 

NEXT J 




5.2 What does the following program print when it runs? 


110 

FOR I = 1 TO 5 STEP 2 




120 

PRINT I, 




130 

NEXT I 




a. 

12345 * c. 

1 

3 

5 

b. 

1 d. 

3 

5 

531 




5.3 What does the following program print when it runs? 


110 

FOR I = 1 TO 5 




120 

PRINT I 5 




130 

NEXT I 




a. 

12345 

c. 1 

3 

5 

b. 

1 

d. 531 




3 

5 
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5.A What does the following program print when it runs? 

110 FOR I = 1 TO 5 STEP 2 
120 PRINT I 
130 NEXT I 

a. 12345 c. 1 3 5 

* b. 1 d. 531 

3 
5 


5.5 What does the following program print when it runs? 


110 

FOR I - 5 TO 1 STEP -2 



120 

PRINT I; 



130 

NEXT I 



a. 

123A5 

c. 

1 


b. 1 * d. 531 

3 
5 


5.6 The following program prints a table with no heading. 

Which line number should be used for a statement that will 
print a heading? 


110 

FOR C = 1 TO 

10 



120 

LET T = (C 

* 

5-7) / 3 



130 

LET T = FN 

B<T) 



140 

PRINT C,T 





150 

NEXT C 





a. 

Line 105 


c. 

Line 

135 

b. 

Line 115 


d. 

Line 

1A5 


5.7 What does the following program print when it runs? 

110 FOR X = 1 TO 4 
120 PRINT "X", 

130 NEXT X 

a. XXXX c. X 

X 

X 

X 

* b. X X X d. X 

X 
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5.8 What does the following program print when it runs? 

110 FOR X = 1 TO 4 
120 PRINT "X"; 

130 NEXT X 

* a. XXXX c. X 

X 

X 

X 

b. X X X d. X 

X 


5.9 What does the following program print when it runs? 

110 FOR X ® 1 TO 4 
120 PRINT "X" 

130 NEXT X 

a. XXXX * c. X 

X 

X 

X 

b. X X X d. X 

X 


5.10 What does the following program print when it runs? 

110 FOR X = 1 TO 4 
120 NEXT X 
130 PRINT "X" 

a. XXXX c. X 

X 

X 

X 

b. X X X * d. X 

X 
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5.11 Which two lines are required to make the following program 
add the numbers in the DATA statement? 

110 READ N 
120 FOR I = 1 TO N 
130 READ X 
140 NEXT I 


105 

LET 

SUM = 0 

* c. 

105 

LET 

SUM 

= 0 


145 

LET 

SUM = SUM + 

X 

135 

LET 

SUM 

= SUM + 

X 

135 

LET 

SUM = SUM + 

X d. 

125 

LET 

SUM 

= 0 


145 

LET 

SUM = 0 


145 

LET 

SUM 

= SUM + 

X 


5.12 What will be the output of the following program? 

100 FOR I = 100 TO 102 
110 PRINT I 
120 NEXT I 

a. 100 101 102 c. 100101102 

* b. 100 d. 100 

101 101 
102 


5.13 What will be the output of the following program? 

100 FOR I = 100 TO 102 
110 PRINT I, 

120 NEXT I 

* a. 100 101 102 c. 100101102 

b. 100 d. 100 

101 101 
102 


5.14 What will be the output of the following program? 

100 FOR I = 100 TO 102 
110 PRINT I; 

120 NEXT I 

a. 100 101 102 * c. 100101102 

b. 100 d. 100 

101 101 
102 
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5. 15 


What 

will be 

the 

out put 

100 

FOR I = 

100 

TO 102 

110 

PRINT I 



120 

NEXT I 



d m 

100 102 


b. 

100 




101 

102 


of the following program? 
STEP 2 

C. 100101102 

* d. 100 
102 



CHAPTER 6 


Which of the following are valid IF/THEN statements. 

a. 160 IF X < 2 THAN Y = 7 - X 

b. 160 IF X <3, Y ■ 7 - X 

* c. 160 IF X < £ THEN Y = 7 - X 

d. 160 IF X EQUAL 7 THEN GOTO 100 


6.£ Which two IF statements would you use for the following 
problem? 

The cost of producing a gizmo is described by the formula 
C = £.50 + 0.3£ * N for values of N less than or equal to 
10 and by the formula C = £.50 + 0.03£ * N * N for values 
of N greater than 10. 


a. 

170 

IF 

N 

< 

10 THEN C 

= 

£.50 + 

0. 3£ * N 



180 

IF 

N 

> 

10 THEN C 

= 

£.50 + 

0.03£ * N * 

N 

* b. 

170 

IF 

N 

< 

= 10 THEN 

C 

= £.50 

+ 0.3£ * N 



180 

IF 

N 

> 

10 THEN C 

= 

£.50 + 

0.03£ * N * 

N 

c. 

170 

IF 

N 

< 

=10 THEN 

c 

= £.50 

+ 0.032 * N 

* 


180 

IF 

N 

> 

10 THEN C 

SB 

£.50 + 

0.32 * N 


d. 

170 

IF N > 


10 THAN C = 

= £ 

!. 50 + 0.03£ * N * 1 

M 


180 

IF 

N 

< 

=10 THAN 

C 

= 2.50 

+ 0.32 * N 



What does the following program print? 

110 READ P,Q,R,S 

1£0 DATA 6,4,£,8 

130 IF P < Q + R THEN PRINT Q 

140 IF Q = < R + S THEN PRINT R 

150 IF R + Q ( > S - R THEN PRINT P 

160 IF Q > P THEN PRINT S 


* a. £ 
b. 4 


c. 6 

d. 8 
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What does the following program print? 

110 READ P,Q, R,S 

120 DATA 6,4,2, 8 

130 IF P < Q + S THEN PRINT Q 

140 IF Q = < (R / S) THEN PRINT R 

150 IF R + Q < > S - R THEN PRINT P 

160 IF Q ) P THEN PRINT S 

a. 2 c. 6 

b. 4 d. 8 


What does the following program print? 

110 READ P,Q,R,S 

120 DATA 6,4,2,8 

130 IF P < Q + R THEN PRINT Q 

140 IF Q > = R + S THEN PRINT R 


IF R + Q = S 


R THEN PRINT P 


IF Q > P THEN PRINT S 


* c. 6 
d. 8 


What does the following program print? 

110 READ P,Q, R,S 

120 DATA 6,4,2, 8 

130 IF P < Q + R THEN PRINT Q 

140 IF Q > = R + S THEN PRINT R 

150 IF R + Q < > S - R THEN PRINT P 

160 IF Q < P THEN PRINT S 


6.7 What does the following program print? 

110 LET S = 0 
120 PRINT ,B T"; 

130 LET S = S + 2 

140 IF S < 9 THEN GOTO 120 

150 END 


* a. TTTTT 


b. TTT 


c. TTTT 


d. T 
T 
T 
T 
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6. a 


6.9 


6 . 10 


What does the following program print? 


no 

LET S = O 


iso 

PRINT "T" 


130 

LET S = S + S 


140 

IF S < 9 THEN GOTO ISO 


150 

END 


a. 

TTTTT * d. 

T 



T 

b. 

TTT 

T 



T 

c. 

TTTT 

T 


What 

does the following 

program 

print 

110 

LET S - 0 




120 

PRINT "T"; 




130 

LET S = S + S 




140 

IF S < 7 THEN GOTO 

ISO 



150 

END 




a. 

TTTTT 


d. 

T 





T 

b. 

TTT 



T 





T 

c. 

TTTT 





What 

: does the following 

program 

print 

110 

LET S * O 




120 

PRINT “T"; 




130 

LET S ■ S + S 




140 

IF S < 5 THEN GOTO 

ISO 



150 

END 




a. 

TTTTT 


d. 

T 





T 

b. 

TTT 



T 





T 

c. 

TTTT 
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6.11 What does the following program print? 


110 

FOR I = 1 TO 2 


120 

FOR J * 1 TO 3 


130 

PRINT ”X M ; 


140 

NEXT J 


150 

PRINT 


160 

NEXT I 


170 

END 


a. 

XXXXXX 

d. XX 



XX 

* b. 

XXX 

XX 


XXX 


c. 

XXXXXX 



6.12 What does the following program print? 


110 

FOR 1=1 TO 2 


120 

FOR J = 1 TO 3 


130 

PRINT " X " ; 


140 

NEXT J 


150 

PRINT " 


160 

NEXT I 


170 

END 


a. 

XXX XXX 

d. XX 

b. 

XXX 

XX 

XX 

c. 

XXX 

XXXXXX 



6.13 What does the following program print? 


110 

FOR I * 1 TO 3 


120 

FOR J = 1 TO 2 


130 

PRINT 11 X M ; 


140 

NEXT J 


150 

PRINT 


160 

NEXT I 


170 

END 


a. 

XXXXXX 

* d. XX 



XX 

b. 

XXX 

XX 


XXX 



c. X X X X X X 
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6.14 What does the following program print? 


110 

FOR I = 1 TO 2 


120 

FOR J = 1 TO 3 


130 

PRINT "X 


140 

NEXT J 


150 

NEXT I 


160 

END 


da 

XXXXXX 

d. XX 



XX 

b. 

XXX 

XX 


XXX 



* c. XXXXXX 


6.15 Which nested FOR/NEXT combination could be used for monthly 
payments over a period of 10 years. 

a. 110 FOR I - 1 TO 12 c. 110 FOR I = 1 TO IS 

120 FOR J = 1 TO 10 120 FOR J = 1 TO 10 

180 NEXT J 180 NEXT I 

190 NEXT I 190 NEXT J 


b. 110 FOR 1=1 TO 10 
120 FOR J = 1 TO 12 
180 NEXT 1 
190 NEXT J 


* d. 110 FOR I = 1 TO 10 

120 FOR J = 1 TO 12 

180 NEXT J 

190 NEXT I 



7. 1 


What does the following program print? 


lie gosub see 
120 GOSUB 6ee 
i3e gosub see 

140 END 


500 PRINT "XX"5 

510 RETURN 

see FOR X - 0 TO 4 

Sie PRINT 

620 NEXT X 

630 RETURN 


a. XX—XX 


* d. XX-XX 


b. XX 



XX 


7.2 What does the following program print? 


110 

GOSUB 

500 

500 

PRINT "XX" 

120 

GOSUB 

600 

510 

RETURN 

130 

GOSUB 

500 

600 

FOR X = 0 TO 

140 

END 


610 

PRINT 




620 

NEXT X 




630 

PRINT 




640 

RETURN 


a. XX—XX d. XX-XX 


b. XX 


* Cm XX 


XX 


179 







180 


7.3 What does the following program print? 


110 

GOSUB 

500 

500 

PRINT "XX n 

120 

GOSUB 

600 

510 

RETURN 

130 

GOSUB 

500 

600 

FOR X = 0 TO 3 

140 

END 


810 

PRINT 




620 

NEXT X 




630 

PRINT 




640 

RETURN 

a. 

XX—XX 


d. 

XX-XX 

* b. 

XX 





XX 


c. 

XX 


XX 


7.4 What does the following program print? 


110 

GOSUB 500 

500 

PRINT "XX"» 

120 

GOSUB 600 

510 

RETURN 

130 

GOSUB 500 

600 

FOR X = 0 TO 

140 

END 

610 

PRINT 



620 

NEXT X 



630 

RETURN 

a. 

XX—XX 

d. 

XX-XX 

b. 

XX 




XX 



c. 

XX 




XX 




7.5 What does the following program print? 

110 READ A*, B«, C«, D$ 

120 DATA "BLUE", "SKY", "THE", "IS" 

130 PRINT BV " ;DV " ;C*" "5 A* 

140 END 

a. BLUE SKY THE IS * c. SKY IS THE BLUE 


b. THE SKY IS BLUE 


d 


BLUE THE SKY IS 







What does the following program print? 


110 READ A*, B«, C$, D« 

120 DATA "BLUE", "SKY”, "THE", "IS" 

130 PRINT A*" ";C«" "jBV 1 ";D* 

140 END 

a. BLUE SKY THE IS c. SKY IS THE BLUE 

b. THE SKY IS BLUE * d. BLUE THE SKY IS 


What does the following program print? 

110 READ A«, B«, C$, D« 

120 DATA “BLUE", "SKY", "THE", "IS" 

130 PRINT CV ";B*" "jD*" "5 A* 

140 END 

a. BLUE SKY THE IS c. SKY IS THE BLUE 

b. THE SKY IS BLUE d. BLUE THE SKY IS 


What does the following program print? 

110 READ A«, B«, C$, D* 

120 DATA "BLUE", "SKY % "THE", “IS" 

130 PRINT A*" ";B*" ";C*" " ;D$ 

140 END 

a. BLUE SKY THE IS c. SKY IS THE BLUE 

b. THE SKY IS BLUE d. BLUE THE SKY IS 


Which of the following are possible causes of a ret 
without GOSUB error? 

a. No END statement in a program. 

b. No RETURN statement in the subroutine. 

c. Using GOTO 500 instead of GOSUB 500 

d. Both a and c above. 
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7. 10 


What does the following program print? 
110 READ C$ 

120 FOR L = 1 TO 5 

125 READ N 

130 FOR S = 1 TO N 

135 PRINT " "5 

140 NEXT S 

150 READ N 

160 FOR C = 1 TO N 

165 PRINT C*5 

170 NEXT C 

160 PRINT 

190 NEXT L 

200 DATA *, 8, 1,7, 3, 6,5, 5, 7, 4, 9 


* 

c. * 

*** 

* 

***** 

***** 

*** 

* 

* 

* 


* b. * 

*** 

***** 

******* 

********* 


d. *** 

* 

*** 

***** 

***** 


7. 11 


What does the following program print? 
110 READ C* 

120 FOR L = 1 TO 5 

125 READ N 

130 FOR S = 1 TO N 

135 PRINT " "5 

140 NEXT S 

150 READ N 

160 FOR C = 1 TO N 

165 PRINT C$5 

170 NEXT C 

180 PRINT 

190 NEXT L 

200 DATA *, 7, 3 f 8 f 1, 7, 3, 6, 5, 6, 5 


* 

c. * 

*** 

* 

***** 

***** 

*** 

* 

* 

* 


b. * 

*** 

***** 

******* 

********* 


* d. *** 

* 

*** 

***** 

***** 
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7. 12 


7. 13 


What 

116 

126 

125 

136 

135 

146 

156 

160 

165 

176 

160 

190 

260 


does the following program print? 
READ C* 

FOR L = 1 TO 5 
READ N 

FOR S = 1 TO N 
PRINT " 

NEXT S 
READ N 

FOR C = 1 TO N 
PRINT C$; 

NEXT C 
PRINT 
NEXT L 

DATA *, 8, 1 f 7, 3, 6, 5, 7, 3, 8, 1 


* 

Cm * 

*** 

* 

***** 

***** 

*** 

* 

* 

* 


b. * 

*** 

***** 

******* 

********* 


d. *** 

* 

*** 

***** 

***** 


What does the following program print? 
110 READ C« 

120 FOR L = 1 TO 5 

125 READ N 

130 FOR S = 1 TO N 

135 PRINT " ”5 

140 NEXT S 

150 READ N 

166 FOR C = 1 TO N 

165 PRINT C*5 
170 NEXT C 

180 PRINT 

196 NEXT L 

200 DATA * f 8, 1,8, 1,6, 5,6, 1,6, 1 
a. * * c. 

*** 

***** 

*** 


b. * d. 

*** 

***** 

******* 

********* 


* 

* 

***** 

* 

* 

*** 

* 

*** 

***** 

JLJLJLJLJL 

w w w w w 
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7.14 Which of the following is connect? 


100 

GOSUB 500 


110 

END 


500 

PRINT “AT 

500 

510 

RETURN 


100 

RETURN 


110 

GOSUB 500 


500 

PRINT “AT 

500 

510 

END 


100 

GOSUB 500 


110 

RETURN 


500 

PRINT “AT 

500 

510 

END 


100 

PRINT "AT 

100 1 

110 

RETURN 


500 

GOSUB 500 


510 

END 



7*15 What line would you add to fix the following pnognam? 
100 GOSUB 300 
300 PRINT "AT 300“ 

310 RETURN 


a. 320 END c. 110 RETURN 

* b. 110 END d. 305 GOTO 300 

7.16 The following pnognam will cnash when it neaches which 

line a second time? 

100 GOSUB 300 
300 PRINT “AT 300“ 

310 RETURN 

a- 100 c. 300 RETURN 

* b. 310 d. it won* t cnash 

7.17 What will be the output of the following pnognam? 


100 

300 

310 

GOSUB 300 

PRINT "AT 300" 
RETURN 



a. 

AT 300 



b. 

AT 300AT 300 



c- 

AT 300 

?RETURN WITHOUT 

GOSUB 

ERROR 

d. 

AT 300 

AT 300 

?RETURN WITHOUT 

GOSUB 

ERROR 
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7.18 Which line will be executed immediately after line 510 in 
the following program? 

100 GOSUB 500 
110 GOSUB £00 
120 END 

500 PRINT "AT 500" 

510 RETURN 

600 PRINT “AT 600" 

£10 RETURN 

a. line 600 c. line 120 

* b. line 110 d. none of the above 


7.19 A group of statements not in the main body of a program is 
called a(n) 

a. imbedded function c. subcall 

b. undefined function * d. subroutine 

7.20 Which of the following statements is used to transfer 
control to a subroutine? 

* a. GOSUB c. RETURN 

b. GOTO d. SUBAT 

7.20 A program exits a subroutine when it encounters which 
statement? 

a. RESTORE c. BACKUP 

b. READ * d. RETURN 



CHAPTER 8 


8.1 What 

110 

is the output of the 
LET C* = #, * M 

following program? 

120 

LET N = 9 


130 

FOR I = N TO 11 


140 

PRINT TAB( N);C* 


150 

NEXT I 


160 

END 


a. 

*** 

e. * * * 

* b. 

* 

d. * 


* 

* 


* 

* 


a. £ 

What 

is the output of the 

following 

program? 


110 

LET C* = M * ,# 




120 

LET N = 9 




130 

FOR I = N TO 11 




140 

PRINT TAB< I);C* 




150 

NEXT I 




160 

END 




a. 

*** 

c. * 

* * 


b. 

* 

* d. 

* 



■* 


* 



* 


* 


8.3 What 

is the output of the following program? 

110 

LET CS = 



120 

LET N = 9 



130 

FOR I = N TO 11 



140 

PRINT TAB( I>;C*; 



150 

NEXT I 



160 

END 



* a. 

*** 

Cm 

********** 

b. 

* 

dm 

* 


* 


* 


* 


* 


166 
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8.4 What is the output of the following program? 
110 LET C* = M *" 

120 LET N = 9 

130 FOR I = N TO 11 

140 PRINT TAB( I);C$" 

150 NEXT I 
160 END 


Ae 

b. 


*** 


* 

* 

* 


* c. * * * 

d. * 


8.5 What is the range of numbers produced by the following 
statement? 

110 X = INT <4 * RND (1)) 


a. 1-4 
* b. 0-3 


c. 1-6 

d. 0-4 


8.6 What is the range of numbers produced by the following 
statement? 

110 X = INT (4 * RND < 1) ) + 1 


* a. 1-4 
b. 0-3 


c. 

d. 


1-6 

0-4 


B. 7 What is the range of numbers produced by the following 
statement? 

11© X = INT (4 * RND <1)) + 11 


a. 11-15 

b. 0-13 


c. 
* d. 


10- 14 

11- 14 


8. Q What is the range of numbers produced by the following 
statement? 

110 X = INT (13 * RND (1)) + 1 


a. 1-14 

b. 0-13 


* c. 1-13 
d. 0-14 



isa 


What is the range of numbers produced by the following 
statement? 


110 X = INT <6 * RND (1)) + 1 

a- 1-4 * c . i_6 

b. 0-6 d. 5-6 


a. 10 In concatenation, two strings are 

* a. added c. analyzed 

b. divided d. compared 


8.11 What is the output of the following program? 

110 S* = "ft STRING" 

120 PRINT LEFT* <S*,5> 

a. TRING c. STRIN 

* b. ft STR d. ft STRI 


®*12 What is the output of the following program? 

110 S* = "ft STRING" 

120 PRINT RIGHT* (S*,5) 

* a. TRING c. STRIN 

b. STRING d. A STR 


8.13 What is the output of the following program? 

110 S* = “ft STRING" 

120 PRINT MID* <S*,5,3> 

a. TRING c. STRIN 

* b. RIN d. ft STRI 


S. 14 What is the output of the following program? 

110 S* ■ "ft STRING" 

120 PRINT MID* (S*,3,5) 


a. TRING 

b. RIN 


* c. STRIN 
d. ft STRI 
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8. 15 


B. 16 


0. 17 


8. 18 


Which of the following is a valid print statement? 


a. 

140 

PRINT 

XI, 

TAB< 

id. 

X£, 

TAB( 

21), 

X3 

* b. 

140 

PRINT 

XI? 

TAB ( 

id ; 

X2; 

TAB ( 

21) ; 

X3 

c. 

140 

PRINT 

XI, 

TAB ( 

11 ), 

X2, 

TAB ( 

10), 

X3 

d. 

140 

PRINT 

XI? 

TAB ( 

11) ; 

X2? 

TAB ( 

10) ; 

X3 


Which of the following will position the columns of a 
table at 1, 11, and 21? 

* a. 180 PRINT Bl; TAB( 11) B2; TAB< 21) B3 

b. 180 PRINT B1;:TAB( 11);PRINT B2;:TAB< 21);PRINT B3 

c. 180 PRINT TAB( 0);B1; TAB(10);B2 TAB< 21);B3 

d. 180 PRINT TAB( 1);B1; TAB( 10);B2; TAB( 10);B3 


Which of the following patterns does this program print? 


110 FOR X = 1 TO 5 
120 PRINT TAB< X);; 
130 NEXT X 


* a. ***** 



c. * 
* 

* 

* 

* 

d. * 

* 

* 

* 

* 


Which of the following patterns does this program print? 

110 FOR X = 1 TO 5 
120 PRINT TAB( 5); ,, * ,, 

130 NEXT X 

a- ***** c. * 

* 

* 

* 

* 
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8.19 Which of the following patterns does this program print? 

110 FOR X = 1 TO 5 
120 PRINT TAB( X); ,, * M 
130 NEXT X 


a. ***** 


Cm 


* 


* 


* 

* 

* 


b. * 
* 
* 
* 
* 


* d. * 

* 


* 


* 

* 


8.20 Which of the following patterns does this program print? 


110 FOR X = 1 TO 5 

120 PRINT TAB( 7 - X); "*” 

130 NEXT X 


a. ***** 


b. 


* 

* 

* 

* 

* 


* c. 


* 


* 

* 

* 


* 


d. 


* 


* 

* 

* 


* 


8.21 Which of the following values of N is not possible in the 
following statements. 


210 LET LL « 2: UL =* 22s NN « UL + 1 - LL 
220 LET N = INT (NN * RND (1)) + LL 

a. 2 c. 22 

b. 21 * d. 23 
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8.22 What is printed by the following instructions? 

110 LET R = RND (1) * 1000 

120 IF R > - 1000 THEN PRINT "OK"; 

130 IF R > *0 THEN PRINT “ I "; 

140 IF R > = 0 AND R < 1000 THEN PRINT "SAY” 
a. OK I SAY c. OK I 

* b. I SAY d. SAY 


8.23 Which value of X is possible in the following expression? 
330 LET X = INT (100 * RND (1) + 1) / 100 

a. 0.0005 * c. 0.5 

b. 0.005 d. 5 


8. 24 

What 

is printed by the 

following 

instruct ions? 


110 

LET M* = "THE COW 

JUMPED OVER THE MOON" 


120 

LET L - LEN (M*) - 

- 22 



130 

PRINT LEFT* <M*,L 

- 1) 



a. 

THE CO 

* c. 

THE C 


b. 

THE COW 

d. 

THE 

8. 25 

What 

is printed by the 

following 

instruct ions? 


110 

LET M* = "THE COW 

JUMPED OVER THE MOON" 


120 

LET L = LEN <M*) - 

- 20 



130 

PRINT RI6HT* M*,L 

- 1) 



a. 

E MOON 

c- 

THE MOON 


b. 

MOON 

* d. 

HE MOON 


8.26 What is printed by the following instructions? 

110 LET M* = "THIS IS A BEAUTIFUL DAY" 

120 LET L = LEN <M*) 

130 LET A* = MID* (M*,11,1) + MID* <M*, L — 4,1) 
140 LET B* = MID* (M*,L - 17,2) 

150 PRINT A*;B* 

a. BUIS c. BL I 

« b. BLIS d. B IS 



9.1 Which of the following is a valid dimension statement? 

a. 50 DIMENSION A = 20 c. 50 DIM A = 20 

* b. 50 DIM A (20) d. 50 A DIM (20) 


9.2 Which of the following is not a possible cause of the 
following messages 

7REDIM* D ARRAY ERROR 

* a. Dimension statement at the beginning of a program 

b. Dimension statement at the end of a program 

c. Dimension statement inside a loop 

d. Dimension statement after the first use of variable 


9.3 Which data statement would work for the following 
instruct ions? 


110 FOR I = 1 TO 5 
120 READ N*(I), S(I) 
130 NEXT I 


a. 

DATA 

TED, 

SUE, ALFRED, 

MARY, JO, 86, 93, 82, 79, 

85 

b. 

DATA 

TED, 

86, SUE, 93, 

ALFRED, 

82, 

MARYJO, 85 


c. 

DATA 

TED, 

SUE, ALFRED, 

MARYJO, 

86, 

93, 82, 85 


* d. 

DATA 

TED, 

86, SUE, 93, 

ALFRED, 

82, 

MARY, 79, JO, 

85 


9.4 What is printed by the following instruct ions? 

110 LET A = 1 

120 FOR X = 1 TO 10 STEP 2 

130 READ A«(A)s READ A*(A + 1) 

140 PRINT A*(A);” 

150 LET A = A + 2 
160 NEXT X 

200 DATA AA,BB,CC,DD,EE, FF, G6, HH, 11, JJ 

a. AA BB CC DD EE * c. AA CC EE GG II 

b. AABBCCDDEE d. AACCEEG6EE 
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9.5 What is printed by the following instructions? 


9.6 


9.7 


110 

LET A = 1 


120 

FOR X = 1 TO 10 STEP 2 


130 

READ A*(A) 


140 

PRINT A*<A); M "; 


150 

LET A = A + 1 


160 

NEXT X 


200 

DATA AA f BB,CC,DD,EE,FF, GG, HH 

, II, JJ 

a. 

AA BB CC DD EE c. 

AA CC EE GG 

b. 

AABBCCDDEE d. 

AACCEEGGEE 

What 

is printed by the following 

instruct ions? 

110 

LET A = 1 


120 

FOR X = 1 TO 10 STEP 2 


130 

READ A«(X): READ A*<X + 1) 


140 

PRINT A*(A);:A ■ A + 2 


150 

NEXT X 


200 

DATA AA,BB,CC,DD,EE,FF, GG, HH 

, II,JJ 

a. 

AA BB CC DD EE c. 

AA CC EE GG 

b. 

AABBCCDDEE * d. 

AACCEE 6 GII 

What 

is printed by the following 

instructions? 

110 

LET A = 1 


120 

FOR X « 1 TO 10 STEP 2 


130 

READ A*(X> 


140 

PRINT A$(A )5 sA = A + 2 


150 

NEXT X 


200 

DATA AA,BB,CC,DD,EE,FF, GG, HH 

, II,JJ 

a. 

AA BB CC DD EE c. 

AA CC EE GG 

b. 

AABBCCDDEE d. 

AACCEE 6 GII 
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What is printed by the following instructions if the 
subscripted variable T(I,J) has the following values. 


T<1,1) * 1 T< 1,2) = 2 T<1, 3) = 3 

T(£, 1) * 4 T (2,2) - 5 T(2,3) - 6 

T<3, 1) = 7 T<3,2) = 8 T (3, 3) = 9 

210 FOR I = 1 TO 3 

220 FOR J = 1 TO 3 

230 PRINT T(I,J) f 
240 NEXT J 
250 PRINT 
2&0 NEXT I 


a. 


1 

2 

3 


4 

5 

6 


7 

8 
9 


c. 9 8 7 

6 5 4 

3 2 1 


* b. 


1 

4 

7 


2 3 

5 6 

a 9 



a 9 

5 6 

2 3 


9.9 What is printed by the following instructions if the 
subscripted variable T(I,J) has the following values. 


TCI, 

i) = i 


T < 1,2) = 

2 T<1,3) 

= 3 

T<2, 

1) = 4 


T(2,2) = 

5 T (2, 3) 

= 6 

T (3, 

1) « 7 


T (3, 2) = 

8 T <3, 3) 

= 9 

210 

FOR I = 

3 

TO 1 STEP -1 


220 

FOR J = 

1 

TO 3 



230 

PRINT T(I, 

J), 



240 

NEXT J 





250 

PRINT 





260 

NEXT I 





a. 

1 4 


7 

c. 9 

a 


2 5 


6 

6 

5 


3 6 


9 

3 

2 

b. 

1 2 


3 

* d. 7 

8 


4 5 


6 

4 

5 


7 a 


9 

1 

2 
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9.10 What is printed by the following instructions if the 
subscripted variable T(I t J) has the following values. 


T(l,l) = 1 T<1,2) = 2 

T(2, 1) = 4 T <2,2) = 5 

T (3, 1) =7 T<3,2> « 8 

210 FOR J * 1 TO 3 

220 FOR I = 1 TO 3 

230 PRINT T(I,J> V 
240 NEXT I 
250 PRINT 
260 NEXT J 

* a. 1 4 7 

2 5 8 

3 6 9 

b. 1 2 3 

4 5 6 

7 8 9 


T (1,3) = 3 
T <2, 3) = 6 
T(3,3) = 9 


c. 9 8 

6 5 

3 2 

d. 7 8 

4 5 

1 2 


7 

4 

1 

9 

6 

3 


9.11 What is printed by the following instructions if the 
subscripted variable T(I,J) has the following values. 


T (1, 1) = 1 
T(2,1) = 4 
T(3, 1) = 7 


T (1,2) = 2 
T<2,2) = 5 
T(3,2) = 8 


T(l,3) = 3 
T (2, 3) = 6 
T (3, 3) = 9 


210 

220 

230 

240 

250 

260 


FOR I = 3 TO 1 
FOR J = 3 TO 1 
PRINT T(I,J>, 
NEXT J 
PRINT 
NEXT I 


STEP -1 
STEP -1 


a. 


1 

2 

3 


4 

5 

6 


7 

8 
9 


6 

3 


8 

5 

2 


7 

4 

1 


. 12 3 

4 5 6 

7 8 9 



8 

5 

2 


9 

6 

3 


b 
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12 What does the following program py»int? 


HO 

FOR 1=0 

TO 5 






ISO 

READ A(I), 

B(I 

+ 

i) 




130 

NEXT I 




. 



140 

DATA 7,6, 

00 

r> 

* 

3 

, i 




150 

DATA 12,2, 

9, 5, 


15, 10 




160 

IF B<3) + 

B<4) 

= 

A (3) 

THEN 

PRINT 

"AAA" 

170 

IF B<4) + 

A< 1 ) 

= 

B (5) 

THEN 

PRINT 

"BBB" 

180 

IF A(5) = 

B<5) 

+ 

B ( 6 ) 

THEN 

PRINT 

••CCC” 

190 

IF A<4) = 

B<3) 

+ 

B<4) 

THEN 

PRINT 

■■DDD” 

a. 

AAA 




* c. 

CCC 


b. 

BBB 




d. 

DDD 



9.13 What instruction is needed at line 160 to sort R(I) into 
ascending order (from lowest to highest value)? 


lie 

FOR K = 1 TO 

10 

120 

LET R(K) = 10 

* RND ( 1 ) 

130 

NEXT K 


140 

FOR J = 1 TO 

9 

150 

160 

FOR I = J + 1 

TO 10 

170 

LET T1 = Rd) 


180 

LET Rd) = R(J) 

190 

LET R(J) = T1 


200 

NEXT I 


210 

NEXT J 


a. 

IF Rd) > R(J) 

GOTO 210 

b. 

IF Rd) < R(J) 

GOTO 210 

c. 

IF Rd) > R (J) 

GOTO 200 

d. 

IF R(I) < R(J) 

GOTO 200 
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B 

9.14 What instruction is needed at line 160 to sort R(I) into 
ascending order (from lowest to highest value)? 


110 

FOR K = 1 TO 

10 


120 

LET R(K) =» 10 

* RND 

< 1 ) 

130 

NEXT K 



140 

FOR I = 1 TO 

9 


150 

FOR J = I + 1 

TO 10 


160 




170 

LET T1 = R(I) 



180 

LET R(I) = R(J) 


190 

LET R(J) = T1 



200 

NEXT J 



210 

NEXT I 



a. 

IF R(I) > R(J) 

GOTO 

210 

b. 

IF R(I) < R <J) 

GOTO 

210 

c. 

IF R(I) > R(J) 

GOTO 

200 

* d. 

IF R(I) < R(J) 

GOTO 

200 


9.15 The following instructions are supposed to sort 10 names 
into alphabetical order. There is an error in one of the 
five lines. Which line has the error? 

110 FOR I = 1 TO 9 

120 FOR J - 1 TO 10 

130 IF N*(I) > N*(J> THEN GOSUB 700 s REM SWOP NOMES 
140 NEXT J 
150 NEXT I 

a. Line 110 c. Line 130 

* b. Line 120 d. Line 140 

9.16 The following instructions are supposed to sort 10 names 
into alphabetical order. There is an error in one of the 
five lines. Which line has the error? 

110 FOR I = 1 TO 9 

120 FOR J = I + 1 TO 10 

130 IF N$(I) < N«(J) THEN GOSUB 700 : REM SWOP NOMES 
140 NEXT J 
150 NEXT I 

a. Line 110 

b. Line 120 


* c 
d 


Line 130 
Line 140 
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following instructions are supposed to sort 10 names 
into alphabetical order. There is an error in one of the 
five lines. Which line has the error? 


9. 17 


* 

9. 18 


9. 19 


9. 20 


110 FOR I = 1 TO 10 
120 FOR J = I + 1 TO 10 

130 IF N$(I) > N$(J) THEN GOSUB 700 : REM SWAP NAMES 
140 NEXT J 
150 NEXT I 

a. Line 110 c. Line 130 

b. Line 120 d. Line 140 

The following instructions are supposed to sort 10 names 
into alphabetical order. There is an error in one of the 
five lines. Which line has the error? 

110 FOR I = 1 TO 9 
120 FOR J = I + 1 TO 10 

130 IF N$(I) > N$(J> THEN GOSUB 700 : REM SWAP NAMES 
140 NEXT I 
150 NEXT 1 

s. Line 120 * c. Line 140 

b. Line 130 d. Line 150 

The following instructions are supposed to switch two 
numbers as part of a program for sorting numbers. The 
instructions may be correct, or there may be a single 
error in one line. Which line has the error? 

800 REM == SUBROUTINE TO SWITCH NUMBERS == 

810 LET T 1 = A(J) 

820 LET A(J) = A(I) 

830 LET A(I) = T1 
840 RETURN 

a. Line 810 c. Line 830 

b. Line 820 * d. All lines are correct 

The following instructions are supposed to switch two 
numbers as part of a program for sorting numbers. The 
instructions may be correct, or there may be a single 
error in one line. Which line has the error? 

800 REM == SUBROUTINE TO SWITCH NUMBERS == 

810 LET T 1 = Ad) 

820 LET A(J) = Ad) 

830 LET Ad) = T1 
840 RETURN 

a. Line 810 

b. Line 820 


c. 

d. 


Line 830 

All lines are correct 
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9.21 The following instructions are supposed to switch two 
numbers as part of a program for sorting numbers. The 
instructions may be correct, or there may be a single 
error in one line. Which line has the error? 


BOO REM == SUBROUTINE TO SWITCH NUMBERS == 

610 LET Tl = AtJ) 

620 LET Ad) = A<J) 

830 LET A(I) = Tl 

640 RETURN 

a. Line 810 c. Line 830 

* b. Line 820 d. All lines are correct 


9.22 The following instructions are supposed to switch two 
numbers as part of a program for sorting numbers. The 
instructions may be correct, or there may be a single 
error in one line. Which line has the error? 


800 

REM == SUBROUTINE 

TO SWITCH 

NUMBERS == 

610 

LET Tl - A< J) 



820 

LET A (J) = Ad) 



830 

LET A(J) = Tl 



840 

RETURN 



a. 

Line 810 

* c. 

Line 830 

b. 

Line 820 

do 

fill lines are correct 


9.23 The following instructions are supposed to switch two 
numbers as part of a program for sorting numbers. The 
instructions may be correct, or there may be a single 
error in one line. Which line has the error? 

860 REM == SUBROUTINE TO SWITCH NUMBERS — 

810 LET Tl = A<I) 

820 LET Ad) = A(J) 

830 LET A(J) = Tl 
840 RETURN 

a. Line 810 

b. Line 820 


c, 
* d, 


Line 830 

All lines are correct 



soe 


9. 24 


* 


9. 25 


* 

9. 26 


The following instructions are supposed to switch two 
numbers as part of a program for sorting numbers. The 
instructions may be correct, or there may be a single 
error in one line. Which line has the error? 


800 

REM == SUBROUTINE TO 

SWITCH NUMBERS == 

810 

LET T1 = 

A<J) 


820 

LET ft(I) 

= ft(J) 


830 

LET ft(J) 

= T1 


840 

RETURN 



a. 

Line 810 


c. Line 830 

b. 

Line 820 


d. fill lines are correct 

The 

following 

instructions 

are supposed to switch two 


numbers as part of a program for sorting numbers. The 
instructions may be correct, or there may be a single 
error in one line. Which line has the error? 


800 

REM == SUBROUTINE 

TO SWITCH 

NUMBERS == 

810 

LET T1 = ft<I) 



820 

LET fl(J) = ft(I) 



830 

LET fi(J) * T1 



840 

RETURN 



a. 

Line 810 

c. 

Line 830 

b. 

Line 820 

d. 

All lines are correct 


The following instructions are supposed to switch two 
numbers as part of a program for sorting numbers. The 
instructions may be correct, or there may be a single 
error in one line. Which line has the error? 


800 

REM — SUBROUTINE TO 

SWITCH 

NUMBERS == 

810 

LET T1 = 

A<I) 



820 

LET A(I) 

= fl(J) 



830 

LET A(I> 

= T1 



840 

RETURN 




a. 

Line 810 


* c. 

Line 830 

b. 

Line 820 


d. 

All lines are correct 
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9.27 The following instructions are supposed to add 1® numbers 
that are stored in the array ft(I). There is a single 
error in one of the lines. Which line has the error? 

110 LET S = 10 

120 LET N = 10 

130 FOR I = 1 TO N 

140 LET S = S + fid) 

150 NEXT I 

* a. Line 110 
b. Line 120 


c. Line 130 

d. Line 140 


9.28 The following instructions are supposed to add 10 numbers 
that are stored in the array fid). There is a single 
error in one of the lines. Which line has the error? 

110 LET S = 0 

120 LET N = 0 

130 FOR I = 1 TO N 

140 LET S = S + ft(I) 

150 NEXT I 

a. Line 11® c. Line 13® 

* b. Line 120 d. Line 140 


9.29 The following instructions are supposed to add 10 numbers 
that are stored in the array ft(I). There is a single 
error in one of the lines. Which line has the error? 


110 

LET S = 

0 



120 

LET N = 

10 



130 

FOR I = 

1 TO S 



140 

LET S = 

S + A (I) 



150 

NEXT I 




a. 

Line 110 


* c- Line 

130 

b. 

Line 120 


d. Line 

140 
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9.30 The following instructions are supposed to add 18 numbers 
that are stored in the array ft<I). There is a single 
error in one of the lines. Which line has the error? 


118 

LET S = 8 



128 

LET N = 18 



138 

FOR I = 1 TO N 



148 

LET ft (I) = ft (I) + S 



158 

NEXT I 



a. 

Line 118 

c. Line 

138 

b. 

Line 128 

* d. Line 

148 


9.31 The following instructions are supposed to add 18 numbers 
that are stored in the array ft(I). There is a single 
error in one of the lines. Which line has the error? 


118 

LET S = 

0 


128 

LET N = 

10 


138 

FOR I = 

1 TO N 


148 

LET N = 

N + A(I) 


158 

NEXT I 



a. 

Line 119 

c. Line 

130 

b. 

Line 120 

* d. Line 

140 



CHAPTER 10 


Which of the following statements is used to prepare a 
disk file for reading or writing? 

a. READ * c. OPEN 

b. WRITE d. CLOSE 


10.2 Which of the following statements is used when you are 
done using a disk file? 

a. READ c. OPEN 

b. WRITE * d. CLOSE 


10.3 Which of the following statements is used to prepare a disk 
file for moving information from the disk to the computer? 

* a. READ c. OPEN 

b. WRITE d. CLOSE 


10.4 Which of the following statements is used to prepare a disk 
file for moving information from the computer to the disk? 
a. READ c. OPEN 

* b. WRITE d. CLOSE 


10.5 Which of the following statements causes the most damage 
when forgotten? 

a. READ c. OPEN 

b. WRITE * d. CLOSE 


10.6 What line will the following program go to next? 
110 Q = 1 

120 ON Q G0SUB 300,400,500,600 


* a. 300 
b. 400 


c. 500 

d. 600 


10.7 What line will the following program go to next? 
110 Q = 2 

120 ON Q G0SUB 300,400,500,600 


a. 300 
* b. 400 


c. 500 

d. 600 
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What line will the following program go to next? 


804 

10.8 

110 Q = 3 

120 ON Q GOSUB 300,400,500,600 

a. 300 * c. 500 

b. 400 d. 600 


10.9 What line will the following program go to next? 
110 Q=4 

120 ON Q 60SUB 300,400,500,600 

a. 300 c. 500 

b. 400 * d. 600 


10.10 What line will the following program goto after line 600? 
110 0=4 

120 ON Q 60SUB 300,400,500,600 
130 PRINT X 
140 END 
600 RETURN 

a. 110 c. 120 

b. 140 * d. 130 


10 . 11 


* 


Which of the following is the correct statement to open a 
file for a write operation? 


a. 

OPEN 

3, 8, 3 

"BOWLING TEAM,SEQ,WRITE" 

b. 

OPEN 

3, 8, 3, 

@0:BOWLING 

TEAM,SEQ, WRITE 

c. 

OPEN 

3, 8, 3, 

“00:BOWLING 

TEAM,SEQ, WRITE” 

d. 

OPEN 

3, 8,3 

"®0:BOWLING 

TEAM,SEQ, WRITE" 


10.12 The instructions below have a single error in one line. 
Which line has the error? 


110 

OPEN 3,8,3, 

"BOWLING TERM, SEQ, READ” 

120 

PRINT#3, N 


130 

PRINT#3, L 


140 

CL0SE3 


a. 

Line 110 

c. Line 130 

b. 

Line 120 

d. Line 140 
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10. 13 The instructions below have a single error in one line. 
Which line has the error? 


110 

OPEN 3,8, 

3 f 

"@8:BOWLING TEAM, SEQ, WRITE" 

120 

INPUT#3, 

N 


130 

PRINT#3, 

L 


140 

a. 

CL0SE3 
Line 118 


c. Line 138 

b. 

Line 128 


d. Line 1A8 


10.14 The instructions below have a single error in one line. 
Which line has the error? 


118 

OPEN 3,8,3, 

"68:B0WLING TEAM, SEQ, WRITE" 

128 

PRINT83, N 



138 

PRINT#3 L 



148 

CL0SE3 



a. 

Line 118 

* c. Line 

138 

b. 

Line 128 

d. Line 

148 


10.15 The instructions below have a single error in one line. 
Which line has the error? 


110 

OPEN 3,8, 

3, 

"@8:BOWLING TEAM, SEQ, WRITE" 

120 

PRINT83, 

N 


130 

PRINT83, 

L 


140 

a. 

CLOSE 
Line 118 


c. Line 138 

b. 

Line 128 


* d. Line 148 


10.16 The instructions below have a single error in one line. 
Which line has the error? 


110 

OPEN 3,8, 

3 f 

"©8:BOWLING TEAM, SEQ, WRITE” 

120 

INPUT*3, 

N 



130 

INPUT#3, 

L 



140 

CL0SE3 




a. 

Line 118 


c. Line 

138 

b. 

Line 128 


d. Line 

148 


10.17 The instructions below have a single error in one line. 
Which line has the error? 


110 

OPEN 3,8 V 3, 

"BOWLINS TEAM, SEQ, READ" 

120 

INPUT#3, N 


130 

INPUT3, L 


140 

CL0SE3 


a. 

Line 110 

* c. Line 130 

b. 

Line 120 

d. Line 140 
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10.18 The instructions below have a single error in one line. 
Which line has the error? 


110 

OPEN 3,8, 

3, 

"BOWLING TEAM,SEQ,READ" 

120 

PRINT#3, 

N 


130 

INPUT03, 

L 


140 

a. 

CL0SE3 
Line 110 


c. Line 130 

b. 

Line 120 


d. Line 140 


10.19 The instructions below have a single error in one line. 
Which line has the error? 


110 

OPEN 3,8, 

3, 

"BOWLING TEAM,SEQ,READ" 

120 

INPUT03, 

N 


130 

INPUT#3, 

L 


140 

a. 

CL0SE4 
Line 110 


c. Line 130 

b. 

Line 120 


* d. Line 140 


10.20 The following instructions write a text file on a disk. 
Which of the four files below is produced by these 
instruct ions? Assume the following values for the 
variables in the instructions. 


N = 4 


N$(l) = ALICE 

T(l) = 382 

N$<3) = MARY 

T(3) = 370 

410 

OPEN 3,8, 

3, "@0:BOWLING 

420 

PRINT#3, 

N 

430 

FOR 1=1 

TO N 

440 

PRINT03, 

N 

450 

PRINT03, 

N«(I> 

460 

PRINT#3, 

TCI) 

470 

NEXT I 


480 

CL0SE3 


a. 

4 

b. 4 


4 

ALICE 


ALICE 

382 


382 

JOHN 


4 

361 


JOHN 

MARY 


361 

370 


4 

RALPH 


MARY 

389 


370 

4 


4 



RALPH 



389 



N*<2> * JOHN T<2> * 361 

N*<4> = RALPH T<4) = 389 

TEAM, 8EQ, WRITE 11 


4 

d. 4 

ALICE 

ALICE 

382 

382 

4 

JOHN 

JOHN 

361 

361 

MARY 

4 

370 

MARY 

RALPH 

370 

389 

4 


RALPH 


389 



4 
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10. SI The following instructions write a text file on a disk. 
Which of the four files below is produced by these 
instruct ions? Assume the following values for the 
variables in the instruct ions. 


N = 

4 




N*<1) = ALICE 

T(1) = 38S 

N«(2> = JOHN 

T (2) = 

N*(3> = MARY 

T(3) = 370 

N*(4) = RALPH 

T (4) = 

110 

OPEN 3,8 

,3 f "00-.BOWLING 

TEAM,SEQ, WRITE" 


4S0 

PRINT#3, 

N 



430 

FOR I = 

1 TO N 



440 

PRINT#3, 

N*(I) 



450 

PRINT#3, 

T < I) 



460 

NEXT I 




470 

PRINT03, 

N 



460 

CL0SE3 




a. 

4 

* b. 4 

n 

0 

* 

a 

0 

4 


4 

ALICE 

ALICE 

ALICE 


ALICE 

38S 

382 

382 


382 

JOHN 

4 

JOHN 


4 

361 

JOHN 

361 


JOHN 

MARY 

361 

MARY 


361 

370 

4 

370 


4 

RALPH 

MARY 

RALPH 


MARY 

389 

370 

389 


370 

4 

4 



4 


RALPH 



RALPH 


389 



389 


4 



361 

369 
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10.22 The following instructions write a text file on a disk. 
Which of the four files below is produced by these 
instructions? Assume the following values for the 
variables in the instructions. 

N = 4 


N*(l) = ALICE 

T (1) = 382 

NS(2) = JOHN 

T (2) = 

N*<3> = MARY 

T(3) = 370 

N$<4) = RALPH 

T<4) = 

110 OPEN 3 t a. 

3, "@0:BOWLING 

TEAM,SEQ, WRITE" 


420 PRINT83, 

N 



430 FOR I « 1 

TO N 



440 PRINT83, 

N*<I) 



450 PRINT83, 

T(I) 



460 PRINT83, 

N 



470 NEXT I 




480 CL0SE3 




a. 4 

b. 4 * 

c. 4 d. 

4 

4 

ALICE 

ALICE 

ALICE 

ALICE 

382 

382 

382 

382 

JOHN 

4 

JOHN 

4 

361 

JOHN 

361 

JOHN 

MARY 

361 

MARY 

361 

370 

4 

370 

4 

RALPH 

MARY 

RALPH 

MARY 

389 

370 

389 

370 

4 

4 


4 


RALPH 


RALPH 


389 


389 


4 



361 

389 
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10.23 The following instructions write a text file on a disk 
Which of the four files below is produced by these 
instruct ions? Assume the following values for the 
variables in the instruct ions. 


N = 

4 




N*(l> = ALICE 

T(1) = 382 

N*<2) = JOHN 

T (2) = 

NS(3) = MARY 

T(3) = 370 

N*<4) = RALPH 

T (4) = 

110 

OPEN 3 v 6 y 

3, "80:BOWLING 

TEAM,SEQ, WRITE” 


420 

PRINT#3 f 

N 



430 

FOR 1=1 

TO N 



440 

PRINT#3 f 

N*<I) 



450 

PRINT#3 f 

T (I) 



460 

NEXT I 




470 

CL0SE3 




a. 

4 

b. 4 

c. 4 * d. 

4 


4 

ALICE 

ALICE 

ALICE 


ALICE 

382 

382 

382 


382 

JOHN 

4 

JOHN 


4 

361 

JOHN 

361 


JOHN 

MARY 

361 

MARY 


361 

370 

4 

370 


4 

RALPH 

MARY 

RALPH 


MARY 

389 

378 

389 


370 

4 

4 



4 


RALPH 



RALPH 


389 



389 


4 



361 

389 
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10.24 What does the following program print if the file named 
NUMBERS has the following content? 

NUMBERS FILE: 5, 3, 42, 17, 90, 27, 21, B0, 51, 14, 72 

140 OPEN 3,8,3, "NUMBERS,SEQ,READ" 

150 INPUT N 

160 FOR I - 1 TO N 

170 INPUT A(I) 

180 INPUT B(I + 1) 

190 NEXT I 
200 CL0SE3 
210 FOR I = 2 TO N 
220 PRINT Bd) 

230 NEXT I 


42 

b. 42 

c. 90 

d. 17 

90 

17 

21 

27 

21 

90 

51 

80 

51 

27 

72 

14 


10.25 What does the following program print if the file named 
NUMBERS has the following content? 

NUMBERS FILE: 5, 3, 42, 17, 90, 27, 21, 80, 51, 14, 72 

140 OPEN 3,8,3, "NUMBERS, SEQ, READ" 

150 INPUT N 

160 FOR I » 1 TON 

170 INPUT Bd) 

180 NEXT I 
190 CL0SE3 
200 FOR 1=2 TO N 
210 PRINT Bd) 

220 NEXT I 


42 

* b. 42 

c. 90 

d. 17 

90 

17 

21 

27 

21 

90 

51 

80 

51 

27 

72 

14 
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10.26 What does the following program print if the file named 
NUMBERS has the following content? 

NUMBERS FILE: 5, 3, 42, 17, 90, 27, 21, 80, 51, 14, 72 

140 OPEN 3,8,3, “NUMBERS, SEQ, READ" 

150 INPUT N 

160 FOR I = 1 TO N 

170 INPUT Ad> 

180 INPUT B(I) 

180 NEXT I 
190 CL0SE3 
200 FOR 1=2 TO N 
210 PRINT B(I) 

220 NEXT I 


42 

b. 42 

* c. 90 

d. 17 

90 

17 

21 

27 

21 

90 

51 

80 

51 

27 

72 

14 


10.27 What does the following program print if the file named 
NUMBERS has the following content? 

NUMBERS FILE: 5, 3, 42, 17, 90, 27, 21, 80, 51, 14, 72 

140 OPEN 3,8,3, “NUMBERS,SEQ, READ" 

150 INPUT N 

160 FOR I ■ 1 TO N 

170 INPUT B(I) 

180 INPUT A(I + 1) 

180 NEXT I 
190 CL0SE3 
200 FOR I » 2 TO N 
210 PRINT B(I) 

220 NEXT I 


42 

b. 42 

c. 90 

* d. 17 

90 

17 

21 

27 

21 

90 

51 

80 

51 

27 

72 

14 



CHAPTER 1 1 


The binary equivalsnt of the decimal number 9 is 
a. 00000111 c. 00001000 

* b. oeeoieoi d. 00000101 


The binary equivalent of the decimal number 0 is 

a. O00O0111 * c. 00001000 

b. 00001001 d. 00000100 


The binary equivalent of the decimal number 7 is 
* a. 00000111 c> 00001000 

b. 00001001 d. 00000110 


The binary equivalent of the decimal number 6 is 
a. 00000100 c. 00000101 

* b. O 000011 Q d. 00000111 


The binary equivalent of the decimal number 5 is 

a. 00000100 • c . 00000101 

b. 00000110 d. 00000111 


The binary equivalent of the decimal number 4 is 

a. 00000011 c . 00001000 

b. 00000101 # d. 00000100 


11.7 The 
* a. 
b. 


binary equivalent of the decimal number 3 is 
00000011 c. 00001100 

ooooieoi d. 00000100 


11.8 


The binary equivalent 

a. eeeeoioo 
* b. eeeoeoio 


of the decimal number S 
C. 00001O00 
d. 00000001 


is 
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213 


11.9 Up to_sprites can be active on the screen at one 

time. 

a. two c. four 

b. seven • d. eight 


11.10 ft sprite is positioned by 

a. the postion command 

b. the position X and position Y commands 

* c. poking decimal numbers into two memory locations 
d. a joystick 


11.11 ft sprite is made visible or invisible by 

a. the visibility command 

b. pressing the Commodore key 

c. the sprite—on command 

* d. poking a decimal number into a memory location 

11.12 ft sprite 9 s vertical position can range from 

a. 0 to 100 

* b. 0 to 255 

c. -100 to 100 

d. 50 to 230 


11.13 ft sprite 9 s shape is defined 

* a. poking sprite data into 

b. a series shape commands 

c. the paint command 

d. a graphics pad 

11.14 Animation involves 

a. drawing pictures of animals on the screen 

* b. movement of sprites on the screen 

c. collision of two sprites 

e. movement of the cursor on the screen 

11.15 ft collision is detected by 

a. the sound produced by the sound chip 

b. a change in the color of the sprites that collided 

c. a flash on the screen 

* d. assigned bits in the collision register 



















